summaryrefslogtreecommitdiff
path: root/2d/time.scm
diff options
context:
space:
mode:
Diffstat (limited to '2d/time.scm')
-rw-r--r--2d/time.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/2d/time.scm b/2d/time.scm
index f853390..c9c9237 100644
--- a/2d/time.scm
+++ b/2d/time.scm
@@ -48,8 +48,8 @@ emitted."
"Create a new signal that delays propagation of values received from
SIGNAL by TICKS agenda updates."
(make-signal (signal-ref signal)
- (colambda (delay-signal from)
- (let ((value (signal-ref signal)))
+ (colambda (self from)
+ (let ((value (signal-ref from)))
(wait ticks)
- (signal-set! delay-signal value)))
- signal))
+ (signal-set! self value)))
+ (list signal)))