monads: Add 'lift0'.
* guix/monads.scm (lift0): New variable.
This commit is contained in:
parent
21caa6deeb
commit
b307c06456
|
@ -41,7 +41,7 @@
|
||||||
mbegin
|
mbegin
|
||||||
mwhen
|
mwhen
|
||||||
munless
|
munless
|
||||||
lift1 lift2 lift3 lift4 lift5 lift6 lift7 lift
|
lift0 lift1 lift2 lift3 lift4 lift5 lift6 lift7 lift
|
||||||
listm
|
listm
|
||||||
foldm
|
foldm
|
||||||
mapm
|
mapm
|
||||||
|
@ -222,6 +222,7 @@ CONDITION is true, return *unspecified* in the current monad."
|
||||||
(with-monad monad
|
(with-monad monad
|
||||||
(return (proc args ...))))))))
|
(return (proc args ...))))))))
|
||||||
|
|
||||||
|
(define-lift lift0 ())
|
||||||
(define-lift lift1 (a))
|
(define-lift lift1 (a))
|
||||||
(define-lift lift2 (a b))
|
(define-lift lift2 (a b))
|
||||||
(define-lift lift3 (a b c))
|
(define-lift lift3 (a b c))
|
||||||
|
|
Loading…
Reference in New Issue