From ec1f11e18e922d4f59d66dfc8fed6c8ad79c27e2 Mon Sep 17 00:00:00 2001 From: Bogdan Popa Date: Sat, 21 Nov 2020 14:53:05 +0200 Subject: [PATCH] match: implement `and*' in terms of `andmap' --- racket/collects/racket/match/compiler.rkt | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/racket/collects/racket/match/compiler.rkt b/racket/collects/racket/match/compiler.rkt index f264c1d5dc..8a5654ce3d 100644 --- a/racket/collects/racket/match/compiler.rkt +++ b/racket/collects/racket/match/compiler.rkt @@ -41,12 +41,7 @@ (map (lambda (p) (f (car p) (cdr p))) ht-l)) (define (and* . vs) - (let loop ([r #t] - [vs vs]) - (cond - [(not r) r] - [(null? vs) r] - [else (loop (and r (car vs)) (cdr vs))]))) + (andmap values vs)) ;; Produce a bool for every column in a set of rows, where #t means ;; that every pat in that column is a Dummy.