diff options
Diffstat (limited to 'monads.lisp')
| -rw-r--r-- | monads.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/monads.lisp b/monads.lisp index dcc82e6..8586f5b 100644 --- a/monads.lisp +++ b/monads.lisp @@ -179,7 +179,7 @@ (defclass ,class-name ,bases ,slots) (defmethod monadic-instance ((monad (eql ',class-name))) (load-time-value (make-instance ',class-name ,@initargs))) - (defmethod monadic-map ((,monad-param ,class-name) map-param) + (defmethod monadic-map ((,monad-param ,class-name) ,map-param) (declare (ignorable ,monad-param)) ,@map-body) (defmethod monadic-join ((,monad-param ,class-name) @@ -210,7 +210,7 @@ (apply #'monadic-join (monadic-instance monad) container-of-containers rest)) (defmethod monadic-unit ((monad symbol) element &rest rest) - (appy #'monadic-unit (monadic-instance monad) element rest)) + (apply #'monadic-unit (monadic-instance monad) element rest)) ;;; ;;; Define the LIST-MONAD, succinctly |