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 c008295..e4cf4b5 100644 --- a/scheme/guile/geiser/evaluation.scm +++ b/scheme/guile/geiser/evaluation.scm @@ -58,7 +58,8 @@ (output (with-output-to-string (lambda () - (with-fluids ((*current-warning-port* (current-output-port))) + (with-fluids ((*current-warning-port* (current-output-port)) + (*current-warning-prefix* "")) (set! result (thunk))))))) (write-result result output))) |