[nongnu] elpa/geiser-racket 3e1fe82 086/191: Racket: capturing and displaying standard error during evaluation

[Philip Kaludercic]

branch: elpa/geiser-racket
commit 3e1fe823c92c4de089401ab3593923a3171efbe9
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Racket: capturing and displaying standard error during evaluation
    
    This bugs was exposed by using rackunit, where all the output of, say,
    check-eq? was lost for good (it was being sent to the stderr black
    hole).
    
    Hat tip Grant Retkke.
---
 elisp/geiser-racket.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index ff7b738..6e2de6b 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -213,13 +213,12 @@ This function uses `geiser-racket-init-file' if it 
exists."
   (when msg
     (let ((p (point)))
       (insert msg)
-      (when key
-        (let ((end (point)))
+      (let ((end (point)))
         (goto-char p)
-        (geiser-racket--purge-trace)
+        (when key (geiser-racket--purge-trace))
         (mapc 'geiser-edit--buttonize-files geiser-racket--file-rxs)
         (goto-char end)
-        (newline)))))
+        (newline))))
   (or key (not (zerop (length msg)))))