summaryrefslogtreecommitdiff
path: root/scheme/guile/geiser/evaluation.scm
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2011-02-25 16:05:11 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2011-02-25 16:05:11 +0100
commit3f65b0938779e9bd045328cb90d7080b6455652e (patch)
treed9422034318c2e2e4a4eccc5f7d64a1209bd9c6e /scheme/guile/geiser/evaluation.scm
parent8599a4574161a4049e3558c89f4b34f82f9e17af (diff)
downloadgeiser-chez-3f65b0938779e9bd045328cb90d7080b6455652e.tar.gz
geiser-chez-3f65b0938779e9bd045328cb90d7080b6455652e.tar.bz2
Guile: setting *current-warning-prefix* during evaluation
This is a 2.0 fluid that governs how warning messages are displayed. In Geiser, we need the prefix set to an empty string so that file paths are clickable (and the display in a separate emacs buffer is nicer).
Diffstat (limited to 'scheme/guile/geiser/evaluation.scm')
-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)))