cristiancmoises
/
radix
mirror of https://codeberg.org/anemofilia/radix.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix: correct implementation of predicate any? on (guix combinators)

pull/1/head
anemofilia 2023-08-26 13:22:49 -03:00
parent 5665d3f3cd
commit 992d9d36c4
No known key found for this signature in database
GPG Key ID: 5A8F3D62C87A2B33
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
modules/radix/combinators.scm
View File

@ -8,7 +8,7 @@
inclusive-disjoin)) inclusive-disjoin))
(define (all? pred lst) (define (all? pred lst)
(null? (filter null? (map pred lst)))) (null? (filter (negate pred) lst)))
(define (any? pred lst) (define (any? pred lst)
(cond ((null? lst) #f) (cond ((null? lst) #f)