summaryrefslogtreecommitdiff
path: root/scheme/plt
diff options
context:
space:
mode:
Diffstat (limited to 'scheme/plt')
-rw-r--r--scheme/plt/geiser.ss6
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)