The Lambda Lab
/
projects
/
microbotany.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added garden directory.
[microbotany.git]
/
garden.scm
diff --git
a/garden.scm
b/garden.scm
index
ac8f4eb
..
ebcdf77
100644
(file)
--- a/
garden.scm
+++ b/
garden.scm
@@
-5,7
+5,9
@@
(chicken io)
(chicken string)
(chicken format)
(chicken io)
(chicken string)
(chicken format)
- srfi-1)
+ (chicken file)
+ (chicken condition)
+ srfi-1 uri-common simple-sha1)
(define rand-double pseudo-random-real)
(define rand-double pseudo-random-real)
@@
-126,12
+128,12
@@
;;; Data
(define stage-transition-times
;;; 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))
(define stages
'(seed seedling young mature flowering seed-bearing))