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:
|
;;; Code:
|
||||||
|
|
||||||
(define (run-repl)
|
(define (run-repl)
|
||||||
(format #t "$ ")
|
|
||||||
(let loop ((env (make-environment '()))
|
(let loop ((env (make-environment '()))
|
||||||
(exp (read-sh (current-input-port))))
|
(exp (read-sh (current-input-port))))
|
||||||
(unless (eof-object? exp)
|
(unless (eof-object? exp)
|
||||||
(eval-sh env exp)
|
(eval-sh env exp)
|
||||||
(format #t "$ ")
|
|
||||||
(loop env (read-sh (current-input-port)))))
|
(loop env (read-sh (current-input-port)))))
|
||||||
#t)
|
#t)
|
||||||
|
|
Loading…
Reference in New Issue