diff options
| author | Konrad Hinsen <konrad.hinsen@laposte.net> | 2009-03-02 11:35:07 +0000 |
|---|---|---|
| committer | Konrad Hinsen <konrad.hinsen@laposte.net> | 2009-03-02 11:35:07 +0000 |
| commit | adef4d0980992077b804796f80cceb7b5f9ee780 (patch) | |
| tree | cdd11986ae3ca4174efd43f869e847cba2d7f2bf /src/clojure/contrib/monads.clj | |
| parent | e349bec891f980cad20e0fa734045a6bd57820e2 (diff) | |
General revision of my modules:
- Replaced clojure.contrib.macros/letfn by clojure.core/letfn
- Introduced namespaces for all tests and examples
- Fixed namespace-related bugs in monads and stream-utils
- Introduced :only clause into all :use clauses
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 |