On 2026-04-02 06:17 -0400, Peter McGoron wrote: > (define (conjoin . predicates) > - (case-lambda > - (() #t) > - (args (let loop-args ((args args)) > - (if (null? args) > - #t > - (let ((arg (car args))) > - (let loop-preds ((predicates predicates)) > - (cond > - ((null? predicates) (loop-args (cdr args))) > - ((not ((car predicates) arg)) #f) > - (else (loop-preds (cdr predicates))))))))))) > + (lambda args > + (every (lambda (proc) (apply proc args)) predicates)))
When a patch replaces some wonky nested loops with a single application of a standard procedure, it's a good sign that it's the Right Thing. Nice work. -- Wolfgang Corcoran-Mathe <[email protected]>
