From 291d593a0519d00545dac90ab832c88cfbfde7a3 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 15 Dec 2022 17:31:00 -0500
Subject: Add prompt and some helpful output.

---
 community-garden/edit.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/community-garden/edit.scm b/community-garden/edit.scm
index bbfc0ad..3da54ba 100644
--- a/community-garden/edit.scm
+++ b/community-garden/edit.scm
@@ -18,8 +18,11 @@
   (define approved-plants-vow (vat-run (<- garden-vow 'get-approved-plants)))
   (define gardener (vat-run (spawn ^gardener name garden-vow)))
   (define running? #t)
+  (define (read*)
+    (display "> ")
+    (read))
   (while running?
-    (match (read)
+    (match (read*)
       (('quit)
        (set! running? #f))
       (('get-garden-name)
@@ -27,8 +30,10 @@
                     (lambda (name)
                       (format #t "~a\n" name)))))
       (('dig-up x y)
+       (format #t "dig up tile (~a, ~a)\n" x y)
        (vat-run ($ gardener 'dig-up x y)))
       (('plant x y)
+       (format #t "plant in tile (~a, ~a)\n" x y)
        (vat-run
         (on approved-plants-vow
             (match-lambda
-- 
cgit v1.2.3