diff options
| -rw-r--r-- | community-garden/edit.scm | 7 |
1 files changed, 6 insertions, 1 deletions
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 |