From deaddf8a891dd31af63a9881e2c9d4e53ff5ae71 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 26 Apr 2009 14:07:28 +0200 Subject: PLT: more robust (and somewhat simpler) evaluation. --- scheme/plt/geiser.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'scheme/plt') 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) -- cgit v1.2.3