mirror of
https://github.com/correl/calrissian.git
synced 2024-11-23 11:09:58 +00:00
Updated to new call syntax.
This commit is contained in:
parent
e23ab8f448
commit
b3bd0f6015
1 changed files with 1 additions and 1 deletions
|
@ -1,5 +1,5 @@
|
||||||
(defmacro evaluate-m (monad mval)
|
(defmacro evaluate-m (monad mval)
|
||||||
`(cond ((: calrissian-util implements? 'calrissian-state ,monad)
|
`(cond ((calrissian-util:implements? 'calrissian-state ,monad)
|
||||||
(call ,monad 'run ,mval 'undefined))
|
(call ,monad 'run ,mval 'undefined))
|
||||||
('true ,mval)))
|
('true ,mval)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue