From 67ee61d144eff51fa3981812925bd7ca1a852368 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 17 Feb 2014 17:00:38 -0500
Subject: Fix signal propagation.

* 2d/signal.scm (signal-propagate!): Dereference the correct signal.
---
 2d/signal.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to '2d')

diff --git a/2d/signal.scm b/2d/signal.scm
index fc1ce31..272cbfb 100644
--- a/2d/signal.scm
+++ b/2d/signal.scm
@@ -103,7 +103,7 @@ simply returns OBJECT otherwise."
 (define (signal-propagate! signal)
   "Notify all output signals about the current value of SIGNAL."
   (hash-for-each (lambda (output unused)
-                   ((signal-proc output) output (%signal-ref output)))
+                   ((signal-proc output) output (%signal-ref signal)))
                  (signal-outputs signal)))
 
 (define (%signal-set! signal value)
-- 
cgit v1.2.3