diff options
| -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) |