summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2013-12-15 20:48:50 -0500
committerDavid Thompson <dthompson2@worcester.edu>2013-12-15 20:48:50 -0500
commitaf9c762023ea44e1b88d02cedbf45a4e31e1bacf (patch)
tree4b2c192a94d8c1e3e76fb6507fd13235911dedfa
parentd0061c661d2f3b5553c9381e4234c138081bf08a (diff)
Fix signal-do not connection to input signal.
* 2d/signals.scm (signal-do): Fix bug.
-rw-r--r--2d/signals.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/2d/signals.scm b/2d/signals.scm
index 84641a7..a0518f8 100644
--- a/2d/signals.scm
+++ b/2d/signals.scm
@@ -159,7 +159,8 @@ a side-effect into a signal chain."
(lambda (do-signal from)
(let ((value (signal-ref signal)))
(proc value)
- value))))
+ value))
+ signal))
(define (signal-map proc signal . signals)
"Create a new signal that applies PROC to the values stored in one