From 420a8c4d96ff19786e4a16a34fcd6b5a98da500b Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 25 Feb 2011 16:05:11 +0100 Subject: 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). --- geiser/evaluation.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))) -- cgit v1.2.3