From d4608e63104b217f5741d057675255efa5b522f9 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 15 Dec 2022 09:36:44 -0500
Subject: Small organization clean-up.

---
 community-garden.scm | 27 +++++++++++++++++++++------
 1 file changed, 21 insertions(+), 6 deletions(-)

(limited to 'community-garden.scm')

diff --git a/community-garden.scm b/community-garden.scm
index 105d2ce..35d28f9 100644
--- a/community-garden.scm
+++ b/community-garden.scm
@@ -27,12 +27,10 @@
              (srfi srfi-9)
              (srfi srfi-43))
 
-(define garden-vat (spawn-vat))
-(define catbird-vat (spawn-vat))
-(define alice-vat (spawn-vat))
-(define-vat-run garden-run garden-vat)
-(define-vat-run catbird-run catbird-vat)
-(define-vat-run alice-run alice-vat)
+
+;;;
+;;; Data types
+;;;
 
 (define-record-type <plant>
   (make-plant name char)
@@ -106,6 +104,18 @@
               (newline))
             (garden-bed-tiles garden)))
 
+
+;;;
+;;; Actors
+;;;
+
+(define garden-vat (spawn-vat))
+(define catbird-vat (spawn-vat))
+(define alice-vat (spawn-vat))
+(define-vat-run garden-run garden-vat)
+(define-vat-run catbird-run catbird-vat)
+(define-vat-run alice-run alice-vat)
+
 (define (^botanist bcom)
   (define-values (seal-plant unseal-plant approved-plant?)
     (make-sealer-triplet))
@@ -208,6 +218,11 @@
 (define-asset (cabbage-texture (f "assets/images/cabbage.png"))
   (load-image f))
 
+
+;;;
+;;; Catbird visualization
+;;;
+
 (define-class <garden-view> (<node-2d>)
   (vat #:getter vat #:init-keyword #:vat)
   (visitor #:getter visitor #:init-keyword #:visitor)
-- 
cgit v1.2.3