summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2012-12-14 16:25:18 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2012-12-14 16:25:18 +0100
commit7c2ca2bb6e59e312019613db85fd86e7918ee1dc (patch)
treed4fd755f13951f2c4774f8af6c74e853ef67fa3b /scheme
parentbfcdc1c92dcf25dfd06cdc03fbd685c7daf40bbe (diff)
downloadgeiser-chez-7c2ca2bb6e59e312019613db85fd86e7918ee1dc.tar.gz
geiser-chez-7c2ca2bb6e59e312019613db85fd86e7918ee1dc.tar.bz2
Racket: make sure stderr is flushed in REPL
Thanks to Haiwei Zhou for catching this one!
Diffstat (limited to 'scheme')
-rw-r--r--scheme/racket/geiser/user.rkt3
1 files changed, 2 insertions, 1 deletions
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 ()