From f65c8e9b0ac5180e43ed2747441e4bcfa59fd89f Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 29 Dec 2013 18:45:02 -0500 Subject: Allow signals to be redefined at the REPL and "just work." --- 2d/time.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to '2d/time.scm') 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))) -- cgit v1.2.3