diff --git a/modules/radix/combinators.scm b/modules/radix/combinators.scm index 650e608..a03630f 100644 --- a/modules/radix/combinators.scm +++ b/modules/radix/combinators.scm @@ -12,12 +12,12 @@ (define (all-of pred) "Returns a procedure that takes a list LST and returns #t if every other -element of LST satisfies pred." +element of LST satisfies PRED." (lambda (lst) (null? (filter (negate pred) lst)))) (define (any-of pred) "Returns a procedure that takes a list LST and returns #t if any element of -LST satisfies pred." +LST satisfies PRED." (match-lambda (() #f) ((head . tail)