Remove prompt-printing from the REPL
This will have to be added again later, but for now it is getting in the way of automated testing. * geesh/repl.scm (run-repl): Do not print prompts.
This commit is contained in:
parent
93b238d9fd
commit
d7d26534b2
|
@ -30,11 +30,9 @@
|
|||
;;; Code:
|
||||
|
||||
(define (run-repl)
|
||||
(format #t "$ ")
|
||||
(let loop ((env (make-environment '()))
|
||||
(exp (read-sh (current-input-port))))
|
||||
(unless (eof-object? exp)
|
||||
(eval-sh env exp)
|
||||
(format #t "$ ")
|
||||
(loop env (read-sh (current-input-port)))))
|
||||
#t)
|
||||
|
|
Loading…
Reference in New Issue