diff options
author | David Thompson <dthompson2@worcester.edu> | 2013-12-29 18:45:02 -0500 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2013-12-29 18:45:02 -0500 |
commit | f65c8e9b0ac5180e43ed2747441e4bcfa59fd89f (patch) | |
tree | 8101314cc303c94f9d530454f71a12de58b7517d /2d/time.scm | |
parent | f5243e92122b19aced55b4764471fc54ef8b3f65 (diff) |
Allow signals to be redefined at the REPL and "just work."
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))) |