2017-02-19 12:49:30 +00:00
|
|
|
(define-module (gash util)
|
2018-06-26 19:34:07 +01:00
|
|
|
#:use-module (srfi srfi-1)
|
|
|
|
|
#:use-module (srfi srfi-26)
|
2017-02-19 09:22:41 +00:00
|
|
|
|
2018-06-26 19:34:07 +01:00
|
|
|
#:export (disjoin conjoin))
|
2017-02-19 09:22:41 +00:00
|
|
|
|
|
|
|
|
(define (disjoin . predicates)
|
|
|
|
|
(lambda (. arguments)
|
|
|
|
|
(any (cut apply <> arguments) predicates)))
|
|
|
|
|
|
|
|
|
|
(define (conjoin . predicates)
|
|
|
|
|
(lambda (. arguments)
|
|
|
|
|
(every (cut apply <> arguments) predicates)))
|
