Racket: make sure stderr is flushed in REPL
authorJose Antonio Ortega Ruiz <jao@gnu.org>
Fri, 14 Dec 2012 15:25:18 +0000 (14 16:25 +0100)
committerJose Antonio Ortega Ruiz <jao@gnu.org>
Fri, 14 Dec 2012 15:25:18 +0000 (14 16:25 +0100)
Thanks to Haiwei Zhou for catching this one!

scheme/racket/geiser/user.rkt

index f383a46..aef1862 100644 (file)
@@ -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 ()