summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2013-12-02 22:21:52 -0500
committerDavid Thompson <dthompson2@worcester.edu>2013-12-02 22:21:52 -0500
commitd75212b44518dba9b24e081dc28c3b6ffeafc713 (patch)
treeb9a20ad3f5e8fd1de1a82d6b79689924881eceac
parentc437856348ea0628dda00bb961e1dee3a4d9d1fe (diff)
Explicitly set initial value for time-delay signal.
* 2d/time.scm (time-delay): Set initial signal value.
-rw-r--r--2d/time.scm1
1 files changed, 1 insertions, 0 deletions
diff --git a/2d/time.scm b/2d/time.scm
index aa975a4..cacfae4 100644
--- a/2d/time.scm
+++ b/2d/time.scm
@@ -43,6 +43,7 @@ agenda updates."
(define (time-delay ticks signal)
(make-signal
+ #:init (signal-ref signal)
#:filter (lambda (value old from)
(wait ticks)
#t)