From 7c2ca2bb6e59e312019613db85fd86e7918ee1dc Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Fri, 14 Dec 2012 16:25:18 +0100
Subject: [PATCH] Racket: make sure stderr is flushed in REPL

Thanks to Haiwei Zhou for catching this one!
---
 scheme/racket/geiser/user.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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 ()
-- 
2.11.4.GIT