diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2011-02-25 16:05:11 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2011-02-25 16:05:11 +0100 |
| commit | 3f65b0938779e9bd045328cb90d7080b6455652e (patch) | |
| tree | d9422034318c2e2e4a4eccc5f7d64a1209bd9c6e /scheme/guile/geiser/evaluation.scm | |
| parent | 8599a4574161a4049e3558c89f4b34f82f9e17af (diff) | |
| download | geiser-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.scm | 3 |
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))) |