From 5cf1bae61a2b1428d9b8cd827fb756299822d072 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 15 Dec 2013 20:47:11 -0500 Subject: Fix signal-map not connecting to all input signals. * 2d/signals.scm (signal-map): Fix bug. --- 2d/signals.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to '2d') 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 -- cgit v1.2.3