diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-08-27 11:30:50 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-08-27 11:30:50 -0400 |
| commit | 19245613f79f3c4ea767b2315f023f325cc15c07 (patch) | |
| tree | 054e3e47f03b4f9154636ebf133b0095b0708952 | |
| parent | 1cbc19bea518840bce44e8e387d36b662a1fcc6a (diff) | |
signal: Allow non-signal values to be bound in signal-let.
* sly/signal.scm (signal-let): Use signal-ref-maybe instead of signal-ref.
| -rw-r--r-- | sly/signal.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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 () |