diff options
| -rw-r--r-- | sly/signal.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/sly/signal.scm b/sly/signal.scm index 9547f17..0ddda2a 100644 --- a/sly/signal.scm +++ b/sly/signal.scm @@ -183,11 +183,15 @@ be coerced into one." ((_ name value) #'(define name (make-signal-maybe value)))))) +;; emacs: (put 'signal-let 'scheme-indent-function 1) + (define-syntax-rule (signal-let ((var signal) ...) body ...) "Similar to 'let', but produces a signal whose value is dependent upon all signals in the bindings list." (signal-map (lambda (var ...) body ...) signal ...)) +;; emacs: (put 'signal-let* 'scheme-indent-function 1) + (define-syntax-rule (signal-let* ((var signal) ...) body ...) "Similar to 'signal-let', but the signal variable bindings are performed sequentially." |