diff --git a/geesh/repl.scm b/geesh/repl.scm index 508398f..ecac66f 100644 --- a/geesh/repl.scm +++ b/geesh/repl.scm @@ -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)