From 992d9d36c4c2f0c0b8f134f63656d096557fa50e Mon Sep 17 00:00:00 2001
From: anemofilia <anemofilia@disroot.org>
Date: Sat, 26 Aug 2023 13:22:49 -0300
Subject: [PATCH] fix: correct implementation of predicate any? on (guix
 combinators)

---
 modules/radix/combinators.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/modules/radix/combinators.scm b/modules/radix/combinators.scm
index 5879a9f..d903e48 100644
--- a/modules/radix/combinators.scm
+++ b/modules/radix/combinators.scm
@@ -8,7 +8,7 @@
             inclusive-disjoin))
 
 (define (all? pred lst)
-  (null? (filter null? (map pred lst))))
+  (null? (filter (negate pred) lst)))
 
 (define (any? pred lst)
   (cond ((null? lst) #f)