From 55881c47deebbe65f0507113a8c2c843064846c0 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 12 Dec 2013 22:38:39 -0500 Subject: Remove signal-and and signal-or. * 2d/signals.scm (signal-and, signal-or): Remove them. --- 2d/signals.scm | 31 ------------------------------- 1 file changed, 31 deletions(-) (limited to '2d') 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 -- cgit v1.2.3