flushing output after any command

This commit is contained in:
Alex Shinn 2012-05-06 20:21:22 +09:00
parent 9e29ea721c
commit 48cbad3299

View file

@ -576,6 +576,7 @@
(print-exception exn out)
(buffer-draw buf out)))
(x ch buf out return))
(flush-output out)
(buffer-refresh buf out)
(if done?
(and (not (eq? done? 'eof)) (buffer->string buf))