diff options
-rw-r--r-- | 2d/signals.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/2d/signals.scm b/2d/signals.scm index eb9f51a..0d2854a 100644 --- a/2d/signals.scm +++ b/2d/signals.scm @@ -167,10 +167,12 @@ or more SIGNALS." (define (update) (apply proc (map signal-ref (cons signal signals)))) - (make-signal (update) - (lambda (map-signal from) - (signal-set! map-signal (update))) - signal)) + (apply make-signal + (update) + (lambda (map-signal from) + (signal-set! map-signal (update))) + signal + signals)) (define (signal-fold proc init signal) "Create a new signal that applies PROC to the values stored in |