From ab9c33fc227f96d090c726dcc3d08f685d522dda Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Fri, 29 May 2015 20:43:05 +0900
Subject: [PATCH] update repl

---
 contrib/20.repl/repl.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/contrib/20.repl/repl.scm b/contrib/20.repl/repl.scm
index f745ce4e..60411749 100644
--- a/contrib/20.repl/repl.scm
+++ b/contrib/20.repl/repl.scm
@@ -11,7 +11,9 @@
    (else
     (begin
       (define (readline str)
-        (if (tty?) (display str))
+        (when (tty?)
+          (display str)
+          (flush-output-port))
         (read-line))
       (define (add-history str)
         #f))))