summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2013-12-15 20:47:11 -0500
committerDavid Thompson <dthompson2@worcester.edu>2013-12-15 20:47:11 -0500
commit5cf1bae61a2b1428d9b8cd827fb756299822d072 (patch)
treefd2e68579a93a52703fa4e77ad3d67a9d894767d
parentb95fc6aa722d30fffcf85f11419d275227181c4a (diff)
Fix signal-map not connecting to all input signals.
* 2d/signals.scm (signal-map): Fix bug.
-rw-r--r--2d/signals.scm10
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