Fix signal-map not connecting to all input signals.

* 2d/signals.scm (signal-map): Fix bug.

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