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)
`(cond ((: calrissian-util implements? 'calrissian-state ,monad)
`(cond ((calrissian-util:implements? 'calrissian-state ,monad)
(call ,monad 'run ,mval 'undefined))
('true ,mval)))