diff options
| -rw-r--r-- | scheme/guile/geiser/evaluation.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/scheme/guile/geiser/evaluation.scm b/scheme/guile/geiser/evaluation.scm index e4cf4b5..5562382 100644 --- a/scheme/guile/geiser/evaluation.scm +++ b/scheme/guile/geiser/evaluation.scm @@ -60,7 +60,8 @@ (lambda () (with-fluids ((*current-warning-port* (current-output-port)) (*current-warning-prefix* "")) - (set! result (thunk))))))) + (with-error-to-port (current-output-port) + (lambda () (set! result (thunk))))))))) (write-result result output))) (define (ge:compile form module) |