From 19245613f79f3c4ea767b2315f023f325cc15c07 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 27 Aug 2014 11:30:50 -0400
Subject: signal: Allow non-signal values to be bound in signal-let.

* sly/signal.scm (signal-let): Use signal-ref-maybe instead of signal-ref.
---
 sly/signal.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sly/signal.scm b/sly/signal.scm
index 9780b1c..8ecc58d 100644
--- a/sly/signal.scm
+++ b/sly/signal.scm
@@ -171,7 +171,7 @@ be coerced into one."
        #'(define name (make-signal-maybe value))))))
 
 (define-syntax-rule (signal-let ((var signal) ...) body ...)
-  ((lambda (var ...) body ...) (signal-ref signal) ...))
+  ((lambda (var ...) body ...) (signal-ref-maybe signal) ...))
 
 (define-syntax signal-let*
   (syntax-rules ()
-- 
cgit v1.2.3