diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-02-17 17:00:38 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-02-17 17:00:38 -0500 |
| commit | 67ee61d144eff51fa3981812925bd7ca1a852368 (patch) | |
| tree | 869f0610371ac95dac59d503446493884f5651e6 | |
| parent | bcdb46d042caa462c0c350af3be0a7b98a8d3344 (diff) | |
Fix signal propagation.
* 2d/signal.scm (signal-propagate!): Dereference the correct signal.
| -rw-r--r-- | 2d/signal.scm | 2 |
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) |