X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=garden.scm;h=ebcdf77d3ef17d207d5a6a66366cf0fe7d1b7217;hb=8c6e2d8351ab1e4485ed41b121a0f02ef08eb415;hp=ac8f4ebef370e5f83b168ad5d2e09cd17d0f9f4c;hpb=603c9be4154b10f0c7d07a402d3f684dd1fd6b46;p=microbotany.git

diff --git a/garden.scm b/garden.scm
index ac8f4eb..ebcdf77 100644
--- a/garden.scm
+++ b/garden.scm
@@ -5,7 +5,9 @@
         (chicken io)
         (chicken string)
         (chicken format)
-        srfi-1)
+        (chicken file)
+        (chicken condition)
+        srfi-1 uri-common simple-sha1)
 
 (define rand-double pseudo-random-real)
 
@@ -126,12 +128,12 @@
 ;;; Data
 
 (define stage-transition-times
-  '(10 20 30 40 50))
-  ;; (list (* 3600 24)
-  ;;       (* 3600 24 3)
-  ;;       (* 3600 24 10)
-  ;;       (* 3600 24 20)
-  ;;       (* 3600 24 30)))
+  ;; '(10 20 30 40 50)) ; for debugging
+  (list (* 3600 24)
+        (* 3600 24 3)
+        (* 3600 24 10)
+        (* 3600 24 20)
+        (* 3600 24 30)))
 
 (define stages
   '(seed seedling young mature flowering seed-bearing))