From 687357bb42595e8481a11f6db728bfb1ec0c9077 Mon Sep 17 00:00:00 2001 From: Luis Guilherme Coelho Date: Sun, 1 Sep 2024 13:48:10 -0300 Subject: [PATCH] combinators: Fix definition for disjoin --- radix/combinators.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/radix/combinators.scm b/radix/combinators.scm index 3012d0a..69926ff 100644 --- a/radix/combinators.scm +++ b/radix/combinators.scm @@ -41,10 +41,9 @@ if these arguments satisfy every other predicate in PREDICATES." "Returns a procedure that is the disjunction of every predicate in PREDICATES. The returned procedure takes an arbitrary number of arguments, and returns #t if these arguments satisfy exactly one predicate in PREDICATES, and #f otherwise." - (lambda args - (match (filter (partial (flip apply) args) predicates) - ((_) #t) - (else #f)))) + (match (filter (partial (flip apply) args) predicates) + ((_) #t) + (else #f))) (define* ((inclusive-disjoin . predicates) . args) "Returns a procedure that is the inclusive disjunction of every predicate in