diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-12-14 16:25:18 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-12-14 16:25:18 +0100 |
| commit | 7c2ca2bb6e59e312019613db85fd86e7918ee1dc (patch) | |
| tree | d4fd755f13951f2c4774f8af6c74e853ef67fa3b | |
| parent | bfcdc1c92dcf25dfd06cdc03fbd685c7daf40bbe (diff) | |
| download | geiser-guile-7c2ca2bb6e59e312019613db85fd86e7918ee1dc.tar.gz geiser-guile-7c2ca2bb6e59e312019613db85fd86e7918ee1dc.tar.bz2 | |
Racket: make sure stderr is flushed in REPL
Thanks to Haiwei Zhou for catching this one!
| -rw-r--r-- | scheme/racket/geiser/user.rkt | 3 |
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 () |