From d7d26534b2322ef98fa291d422a6ecb65070f1b4 Mon Sep 17 00:00:00 2001
From: Timothy Sample <samplet@ngyro.com>
Date: Tue, 17 Jul 2018 13:42:58 -0400
Subject: [PATCH] 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.
---
 geesh/repl.scm | 2 --
 1 file changed, 2 deletions(-)

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)