monads: Add 'lift0'.

* guix/monads.scm (lift0): New variable.
This commit is contained in:
Ludovic Courtès 2014-12-02 10:10:51 +01:00
parent 21caa6deeb
commit b307c06456
1 changed files with 2 additions and 1 deletions

View File

@ -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))