github/calrissian
1
0
Fork 0
mirror of https://github.com/correl/calrissian.git synced 2024-11-23 19:19:57 +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

14
include/monads.lfe
View file

@ -3,14 +3,14 @@
;; Provide the state monad in terms of the state transformer ;; Provide the state monad in terms of the state transformer
(''state `(transformer 'state 'identity)) (''state `(transformer 'state 'identity))
(_ (_
`(list_to_atom (lists:flatten (list "calrissian-" `(list_to_atom (lists:flatten `("calrissian-"
(atom_to_list ,name) ,(atom_to_list ,name)
"-monad")))))) "-monad"))))))
(defmacro transformer (name inner-monad) (defmacro transformer (name inner-monad)
`(tuple (list_to_atom (lists:flatten (list "calrissian-" `(tuple (list_to_atom (lists:flatten `("calrissian-"
(atom_to_list ,name) ,(atom_to_list ,name)
"-transformer"))) "-transformer")))
(monad ,inner-monad))) (monad ,inner-monad)))
(defmacro do-m args (defmacro do-m args
@ -31,7 +31,7 @@
`(call ,monad 'fail ,expr)) `(call ,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))
(return ,monad []) (return ,monad [])
,list)) ,list))