18 lines
390 B
Scheme
18 lines
390 B
Scheme
(define-module (gash util)
|
|
#:use-module (srfi srfi-1)
|
|
#:use-module (srfi srfi-26)
|
|
|
|
#:export (
|
|
conjoin
|
|
disjoin
|
|
wrap-command
|
|
))
|
|
|
|
(define (disjoin . predicates)
|
|
(lambda (. arguments)
|
|
(any (cut apply <> arguments) predicates)))
|
|
|
|
(define (conjoin . predicates)
|
|
(lambda (. arguments)
|
|
(every (cut apply <> arguments) predicates)))
|