summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--community-garden.scm14
1 files changed, 7 insertions, 7 deletions
diff --git a/community-garden.scm b/community-garden.scm
index f0429c9..105d2ce 100644
--- a/community-garden.scm
+++ b/community-garden.scm
@@ -117,12 +117,12 @@
(unseal-plant plant)
(error "plant is not allowed" plant)))))
-(define (^garden-guard bcom botanist)
+(define (^garden-gate bcom botanist)
(methods
((check-plant plant)
($ botanist 'check-plant plant))))
-(define (^garden bcom name garden-bed garden-guard)
+(define (^garden bcom name garden-bed garden-gate)
(define (ensure-empty x y)
(when (garden-bed-ref garden-bed x y)
(error "tile already has something planted in it" x y)))
@@ -131,12 +131,12 @@
((get-bed) garden-bed)
((plant x y sealed-plant)
(ensure-empty x y)
- (let* ((plant ($ garden-guard 'check-plant sealed-plant))
+ (let* ((plant ($ garden-gate 'check-plant sealed-plant))
(new-bed (garden-bed-set garden-bed x y plant)))
- (bcom (^garden bcom name new-bed garden-guard))))
+ (bcom (^garden bcom name new-bed garden-gate))))
((dig-up x y)
(let ((new-bed (garden-bed-set garden-bed x y #f)))
- (bcom (^garden bcom name new-bed garden-guard))))))
+ (bcom (^garden bcom name new-bed garden-gate))))))
(define (^visitor bcom name garden)
(methods
@@ -159,7 +159,7 @@
(<- garden 'dig-up x y))))
(define the-botanist (garden-run (spawn ^botanist)))
-(define the-garden-guard (garden-run (spawn ^garden-guard the-botanist)))
+(define the-garden-gate (garden-run (spawn ^garden-gate the-botanist)))
(define sunflower/approved
(garden-run ($ the-botanist 'approve-plant sunflower)))
(define cabbage/approved
@@ -169,7 +169,7 @@
(spawn ^garden
"Spritely Institute Community Garden"
(make-garden-bed 8 8)
- the-garden-guard)))
+ the-garden-gate)))
(define alice (alice-run (spawn ^gardener "Alice" our-garden)))
(alice-run ($ alice 'plant 1 1 sunflower/approved))