mirror of
https://github.com/correl/calrissian.git
synced 2024-11-27 11:09:58 +00:00
14 lines
301 B
Text
14 lines
301 B
Text
|
(defmacro do args
|
||
|
|
(let ((monad (car args))
|
||
|
|
(statements (cdr args)))
|
||
|
|
(monad:do-transform monad statements)))
|
||
|
|
|
||
|
|
(defmacro >>= (monad m f)
|
||
|
|
`(: ,monad >>= ,m ,f))
|
||
|
|
|
||
|
|
(defmacro >> (monad m1 m2)
|
||
|
|
`(: ,monad >>= ,m1 (lambda (_) ,m2)))
|
||
|
|
|
||
|
|
(defmacro return (monad expr)
|
||
|
|
`(: ,monad return ,expr))
|