From af9c762023ea44e1b88d02cedbf45a4e31e1bacf Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 15 Dec 2013 20:48:50 -0500
Subject: Fix signal-do not connection to input signal.

* 2d/signals.scm (signal-do): Fix bug.
---
 2d/signals.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to '2d')

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
-- 
cgit v1.2.3