summaryrefslogtreecommitdiff
path: root/scheme/plt/geiser.ss
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-04-26 14:07:28 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-04-26 14:07:28 +0200
commitdeaddf8a891dd31af63a9881e2c9d4e53ff5ae71 (patch)
treef7d4780ce015dda9f0edbcd16a1c17ba10ecc6ad /scheme/plt/geiser.ss
parentdf593e60b078759d88daf98c18112821fe70a8a7 (diff)
downloadgeiser-chez-deaddf8a891dd31af63a9881e2c9d4e53ff5ae71.tar.gz
geiser-chez-deaddf8a891dd31af63a9881e2c9d4e53ff5ae71.tar.bz2
PLT: more robust (and somewhat simpler) evaluation.
Diffstat (limited to 'scheme/plt/geiser.ss')
-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)