Updated to new call syntax.

This commit is contained in:
Duncan M. McGreggor 2015-05-21 20:57:48 -05:00
parent e23ab8f448
commit b3bd0f6015

View file

@ -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)))