[nongnu] elpa/geiser-racket fd450c0 113/191: Racket: make sure stderr is flushed in REPL

[Philip Kaludercic]

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

    Racket: make sure stderr is flushed in REPL
    
    Thanks to Haiwei Zhou for catching this one!
---
 geiser/user.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/geiser/user.rkt b/geiser/user.rkt
index f383a46..aef1862 100644
--- a/geiser/user.rkt
+++ b/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 ()