diff options
Diffstat (limited to '2d/time.scm')
-rw-r--r-- | 2d/time.scm | 8 |
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))) |