summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--scheme/guile/geiser/evaluation.scm3
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)))