diff options
Diffstat (limited to 'src/clojure/contrib/monads.clj')
| -rw-r--r-- | src/clojure/contrib/monads.clj | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/clojure/contrib/monads.clj b/src/clojure/contrib/monads.clj index b923d026..b27edb46 100644 --- a/src/clojure/contrib/monads.clj +++ b/src/clojure/contrib/monads.clj @@ -1,7 +1,7 @@ ;; Monads in Clojure ;; by Konrad Hinsen -;; last updated February 25, 2009 +;; last updated March 2, 2009 ;; Copyright (c) Konrad Hinsen, 2009. All rights reserved. The use ;; and distribution terms for this software are covered by the Eclipse @@ -127,9 +127,8 @@ `(defmonadfn ~doc-name ~args ~expr))) ([name args expr] - (let [fn-name (symbol (format "m+%s+m" (str name)))] + (let [fn-name (symbol (str *ns*) (format "m+%s+m" (str name)))] `(do - (def ~fn-name nil) (defmacro ~name ~args (list (quote ~fn-name) '~'m-bind '~'m-result '~'m-zero '~'m-plus |