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:
Timothy Sample 2018-07-17 13:42:58 -04:00
parent 93b238d9fd
commit d7d26534b2
1 changed files with 0 additions and 2 deletions

View File

@ -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)