Fix signal-do not connection to input signal.

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

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