diff --git a/buer.scm b/buer.scm index f9ed314..55f3a66 100644 --- a/buer.scm +++ b/buer.scm @@ -106,7 +106,7 @@ #|gawk |# gawk #|guile |# guile-3.0-latest guile-colorized guile-readline #|less |# less - #|linux |# e2fsprogs eudev fuse iproute kbd kmod lm-sensors procps + #|linux |# e2fsprogs eudev iproute kbd kmod lm-sensors procps psmisc util-linux #|man |# man-db mandoc man-pages #|shells |# dash-next diff --git a/modules/radix/combinators.scm b/modules/radix/combinators.scm index aef7661..d341728 100644 --- a/modules/radix/combinators.scm +++ b/modules/radix/combinators.scm @@ -8,6 +8,7 @@ disjoin inclusive-disjoin flip + juxt partial swap)) @@ -48,3 +49,7 @@ (define ((swap proc) arg1 arg2 . args) (apply proc arg2 arg1 args)) + +(define ((juxt proc . more-procs) arg . more-args) + (map (lambda (proc) (apply proc arg more-args)) + (cons proc more-procs)))