summaryrefslogtreecommitdiff
path: root/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
commit420a8c4d96ff19786e4a16a34fcd6b5a98da500b (patch)
tree7894246501c9b387342d7eb97b872249538785ea /geiser/evaluation.scm
parent67e9ff26c6cac413572034ffbd69ba9212085014 (diff)
downloadgeiser-guile-420a8c4d96ff19786e4a16a34fcd6b5a98da500b.tar.gz
geiser-guile-420a8c4d96ff19786e4a16a34fcd6b5a98da500b.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 'geiser/evaluation.scm')
-rw-r--r--geiser/evaluation.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/geiser/evaluation.scm b/geiser/evaluation.scm
index c008295..e4cf4b5 100644
--- a/geiser/evaluation.scm
+++ b/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)))