summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-02-17 17:00:38 -0500
committerDavid Thompson <dthompson2@worcester.edu>2014-02-17 17:00:38 -0500
commit67ee61d144eff51fa3981812925bd7ca1a852368 (patch)
tree869f0610371ac95dac59d503446493884f5651e6
parentbcdb46d042caa462c0c350af3be0a7b98a8d3344 (diff)
Fix signal propagation.
* 2d/signal.scm (signal-propagate!): Dereference the correct signal.
-rw-r--r--2d/signal.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/2d/signal.scm b/2d/signal.scm
index fc1ce31..272cbfb 100644
--- a/2d/signal.scm
+++ b/2d/signal.scm
@@ -103,7 +103,7 @@ simply returns OBJECT otherwise."
(define (signal-propagate! signal)
"Notify all output signals about the current value of SIGNAL."
(hash-for-each (lambda (output unused)
- ((signal-proc output) output (%signal-ref output)))
+ ((signal-proc output) output (%signal-ref signal)))
(signal-outputs signal)))
(define (%signal-set! signal value)