From 3f65b0938779e9bd045328cb90d7080b6455652e 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). --- scheme/guile/geiser/evaluation.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))) -- cgit v1.2.3