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 | 420a8c4d96ff19786e4a16a34fcd6b5a98da500b (patch) | |
| tree | 7894246501c9b387342d7eb97b872249538785ea /geiser/evaluation.scm | |
| parent | 67e9ff26c6cac413572034ffbd69ba9212085014 (diff) | |
| download | geiser-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.scm | 3 |
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))) |