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  <xxxxxx@sigwinch.xyz>