From c437856348ea0628dda00bb961e1dee3a4d9d1fe Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 2 Dec 2013 22:20:52 -0500
Subject: Use signal-receive! instead of signal-set! in signal-connect!

* 2d/signals.scm (signal-connect!): Use signal-receive!
---
 2d/signals.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to '2d')

diff --git a/2d/signals.scm b/2d/signals.scm
index 502aada..0219602 100644
--- a/2d/signals.scm
+++ b/2d/signals.scm
@@ -106,7 +106,7 @@ value will be propagated to LISTENER."
   (%set-signal-connectors!
    signal
    (cons listener (signal-connectors signal)))
-  (signal-set! listener (signal-ref signal)))
+  (signal-receive! listener (signal-ref signal) signal))
 
 (define (signal-disconnect! signal listener)
   "Detach LISTENER from SIGNAL."
-- 
cgit v1.2.3