diff options
| -rw-r--r-- | scheme/plt/geiser.ss | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scheme/plt/geiser.ss b/scheme/plt/geiser.ss index c5081c4..59b49f0 100644 --- a/scheme/plt/geiser.ss +++ b/scheme/plt/geiser.ss @@ -58,9 +58,9 @@ (define (geiser/eval form spec) (geiser/set-result! (void)) - (parameterize ((current-error-port nowhere)) - (eval #`(enter! #,(ensure-module spec)))) - (with-handlers ((exn? (dynamic-require ''geiser 'geiser/format-error))) + (with-handlers ((exn? geiser/format-error)) + (parameterize ((current-error-port nowhere)) + (eval #`(enter! #,(ensure-module spec)))) ((dynamic-require ''geiser 'geiser/set-result!) (eval form))) (enter! #f) last-result) |