diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2008-11-01 00:01:00 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2014-09-12 07:53:32 -0700 |
| commit | cdf411804c807517c7f266c5b568b338c55df2c2 (patch) | |
| tree | badc9f930aa5dec54a5a66597fc1bdf9d07c9040 /monads.lisp | |
| parent | ed93e8d8fd0b96727dca3f01211f6b2ea69f4237 (diff) | |
| download | lisp-snippets-cdf411804c807517c7f266c5b568b338c55df2c2.tar.gz lisp-snippets-cdf411804c807517c7f266c5b568b338c55df2c2.tar.bz2 lisp-snippets-cdf411804c807517c7f266c5b568b338c55df2c2.zip | |
Bugfixes.
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 |