diff options
Diffstat (limited to '2d')
| -rw-r--r-- | 2d/signals.scm | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/2d/signals.scm b/2d/signals.scm index 94f8fe5..9a0c3c5 100644 --- a/2d/signals.scm +++ b/2d/signals.scm @@ -49,8 +49,6 @@ signal-fold signal-count signal-if - signal-and - signal-or signal-when signal-unless signal-do)) @@ -238,35 +236,6 @@ signal ALTERNATE otherwise." consequent alternate))) -(define (signal-and . signals) - "Create a new signal that performs a logical AND operation on the -values of SIGNALS." - (make-signal - #:transformer (lambda (value prev from) - (let loop ((signals signals) - (prev #t)) - (cond ((null? signals) - (signal-ref prev)) - ((signal-ref (car signals)) - (loop (cdr signals) (car signals))) - (else - #f)))) - #:connectors signals)) - -(define (signal-or . signals) - "Create a new signal that performs a logicla OR operation the values -of SIGNALS." - (make-signal - #:transformer (lambda (value prev from) - (let loop ((signals signals)) - (cond ((null? signals) - #f) - ((signal-ref (car signals)) - (signal-ref (car signals))) - (else - (loop (cdr signals)))))) - #:connectors signals)) - (define (signal-when predicate init consequent) "Create a new signal that keeps the value from CONSEQUENT only when PREDICATE is true. INIT specifies the value that is set if PREDICATE |