diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-04-26 14:07:28 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-04-26 14:07:28 +0200 |
| commit | deaddf8a891dd31af63a9881e2c9d4e53ff5ae71 (patch) | |
| tree | f7d4780ce015dda9f0edbcd16a1c17ba10ecc6ad | |
| parent | df593e60b078759d88daf98c18112821fe70a8a7 (diff) | |
| download | geiser-guile-deaddf8a891dd31af63a9881e2c9d4e53ff5ae71.tar.gz geiser-guile-deaddf8a891dd31af63a9881e2c9d4e53ff5ae71.tar.bz2 | |
PLT: more robust (and somewhat simpler) evaluation.
| -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) |