conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove repl echo (appearing when lines are continuous)

This commit is contained in:
Yuichi Nishiwaki 2015-01-07 20:09:09 -08:00
parent 9303fcf34b
commit 438b4739d2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/20.repl/repl.scm
View File

@ -35,7 +35,7 @@
(define (repl) (define (repl)
(let loop ((buf "")) (let loop ((buf ""))
(let ((line (readline (if (equal? buf "") "> " "* ")))) (let ((line (readline (if (equal? buf "") "> " ""))))
(if (eof-object? line) (if (eof-object? line)
(newline) ; exit (newline) ; exit
(let ((str (string-append buf line "\n"))) (let ((str (string-append buf line "\n")))