branch: elpa/geiser-guile
commit 420a8c4d96ff19786e4a16a34fcd6b5a98da500b
Author: Jose Antonio Ortega Ruiz <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
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)))
