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

More formatting tweaks.

Browse source
This commit is contained in:
Duncan McGreggor 2015-05-21 19:14:39 -05:00
parent 1c9fe229cb
commit 8fbb180c7c
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
include/monads.lfe
View file

@ -3,13 +3,13 @@
;; Provide the state monad in terms of the state transformer
(''state `(transformer 'state 'identity))
(_
`(list_to_atom (lists:flatten (list "calrissian-"
(atom_to_list ,name)
`(list_to_atom (lists:flatten `("calrissian-"
,(atom_to_list ,name)
"-monad"))))))
(defmacro transformer (name inner-monad)
`(tuple (list_to_atom (lists:flatten (list "calrissian-"
(atom_to_list ,name)
`(tuple (list_to_atom (lists:flatten `("calrissian-"
,(atom_to_list ,name)
"-transformer")))
(monad ,inner-monad)))
@ -31,7 +31,7 @@
`(call ,monad 'fail ,expr))
(defmacro sequence (monad list)
`(: lists foldr
`(lists:foldr
(lambda (m acc) (mcons ,monad m acc))
(return ,monad [])
,list))