From 38069bc3f0ef425e056184c55a3f1e9c17edcb8b Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 15 Dec 2022 09:22:13 -0500 Subject: s/guard/gate/ --- community-garden.scm | 14 +++++++------- 1 file 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)) -- cgit v1.2.3