From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Fri, 14 Dec 2012 15:25:18 +0000 (+0100)
Subject: Racket: make sure stderr is flushed in REPL
X-Git-Tag: 0.3~4
X-Git-Url: https://repo.or.cz/w/geiser.git/commitdiff_plain/7c2ca2bb6e59e312019613db85fd86e7918ee1dc

Racket: make sure stderr is flushed in REPL

Thanks to Haiwei Zhou for catching this one!
---

diff --git a/scheme/racket/geiser/user.rkt b/scheme/racket/geiser/user.rkt
index f383a46..aef1862 100644
--- a/scheme/racket/geiser/user.rkt
+++ b/scheme/racket/geiser/user.rkt
@@ -66,7 +66,8 @@
 
 (define ((geiser-read prompt))
   (prompt)
-  (flush-output)
+  (flush-output (current-error-port))
+  (flush-output (current-output-port))
   (let* ([in ((current-get-interaction-input-port))]
 	 [form ((current-read-interaction) (object-name in) in)])
     (syntax-case form ()