14 lines
322 B
Scheme
14 lines
322 B
Scheme
|
(define-module (sh util)
|
||
|
|
:use-module (srfi srfi-1)
|
||
|
|
:use-module (srfi srfi-26)
|
||
|
|
|
||
|
|
:export (disjoin conjoin))
|
||
|
|
|
||
|
|
(define (disjoin . predicates)
|
||
|
|
(lambda (. arguments)
|
||
|
|
(any (cut apply <> arguments) predicates)))
|
||
|
|
|
||
|
|
(define (conjoin . predicates)
|
||
|
|
(lambda (. arguments)
|
||
|
|
(every (cut apply <> arguments) predicates)))
|