From 438b4739d27347b2aedd61497671edac28388d5e Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 7 Jan 2015 20:09:09 -0800
Subject: [PATCH] remove repl echo (appearing when lines are continuous)

---
 contrib/20.repl/repl.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/contrib/20.repl/repl.scm b/contrib/20.repl/repl.scm
index bed94d0e..f745ce4e 100644
--- a/contrib/20.repl/repl.scm
+++ b/contrib/20.repl/repl.scm
@@ -35,7 +35,7 @@
 
   (define (repl)
     (let loop ((buf ""))
-      (let ((line (readline (if (equal? buf "") "> " "* "))))
+      (let ((line (readline (if (equal? buf "") "> " ""))))
         (if (eof-object? line)
             (newline)                   ; exit
             (let ((str (string-append buf line "\n")))