diff options
| -rw-r--r-- | 2d/signals.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/2d/signals.scm b/2d/signals.scm index 502aada..0219602 100644 --- a/2d/signals.scm +++ b/2d/signals.scm @@ -106,7 +106,7 @@ value will be propagated to LISTENER." (%set-signal-connectors! signal (cons listener (signal-connectors signal))) - (signal-set! listener (signal-ref signal))) + (signal-receive! listener (signal-ref signal) signal)) (define (signal-disconnect! signal listener) "Detach LISTENER from SIGNAL." |