Small organization clean-up.

1 files changed, 21 insertions, 6 deletions

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)