update repl
This commit is contained in:
parent
cd4b1be54c
commit
ab9c33fc22
|
@ -11,7 +11,9 @@
|
||||||
(else
|
(else
|
||||||
(begin
|
(begin
|
||||||
(define (readline str)
|
(define (readline str)
|
||||||
(if (tty?) (display str))
|
(when (tty?)
|
||||||
|
(display str)
|
||||||
|
(flush-output-port))
|
||||||
(read-line))
|
(read-line))
|
||||||
(define (add-history str)
|
(define (add-history str)
|
||||||
#f))))
|
#f))))
|
||||||
|
|
Loading…
Reference in New Issue