From d75212b44518dba9b24e081dc28c3b6ffeafc713 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 2 Dec 2013 22:21:52 -0500
Subject: Explicitly set initial value for time-delay signal.

* 2d/time.scm (time-delay): Set initial signal value.
---
 2d/time.scm | 1 +
 1 file changed, 1 insertion(+)

(limited to '2d')

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)
-- 
cgit v1.2.3