[nongnu] elpa/geiser-guile 420a8c4 222/284: Guile: setting *current-warning-prefix* during evaluation

[Philip Kaludercic]

branch: elpa/geiser-guile
commit 420a8c4d96ff19786e4a16a34fcd6b5a98da500b
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    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)))