github/calrissian
1
0
Fork 0
mirror of https://github.com/correl/calrissian.git synced 2024-11-23 11:09:58 +00:00
Code Issues Projects Releases Packages Wiki Activity

Add fail macro

Browse source
This commit is contained in:
Correl Roush 2014-04-25 01:27:13 -04:00
parent 888effbf13
commit 7367dc2d05
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
include/monads.lfe
View file

@ -12,6 +12,9 @@
(defmacro return (monad expr) (defmacro return (monad expr)
`(: ,monad return ,expr)) `(: ,monad return ,expr))
(defmacro fail (monad expr)
`(: ,monad fail ,expr))
(defmacro sequence (monad list) (defmacro sequence (monad list)
`(: lists foldr `(: lists foldr
(lambda (m acc) (mcons ,monad m acc)) (lambda (m acc) (mcons ,monad m acc))