diff options
| author | scgilardi <scgilardi@gmail.com> | 2009-03-01 15:20:01 +0000 |
|---|---|---|
| committer | scgilardi <scgilardi@gmail.com> | 2009-03-01 15:20:01 +0000 |
| commit | d404530419fdb1f5b86cf7587305533d50bf8b5a (patch) | |
| tree | 280792c9bcd9b0e2aa30b403e43793c157c7ea97 /src/clojure/contrib/monads/test.clj | |
| parent | 75b13a2a10df0209c75629750077a5bd3e88fbb5 (diff) | |
interim: rename clojure.contrib.macros.letfn to letfn-kh because clojure.core now defines letfn. Making this change to allow clojure.contrib to compile/run until Konrad makes his preferred fix
Diffstat (limited to 'src/clojure/contrib/monads/test.clj')
| -rw-r--r-- | src/clojure/contrib/monads/test.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clojure/contrib/monads/test.clj b/src/clojure/contrib/monads/test.clj index 8731b940..9fbe3928 100644 --- a/src/clojure/contrib/monads/test.clj +++ b/src/clojure/contrib/monads/test.clj @@ -48,7 +48,7 @@ (deftest seq-maybe-monad (with-monad (maybe-t sequence-m) - (letfn [pairs [xs] ((m-lift 2 #(list %1 %2)) xs xs)] + (letfn-kh [pairs [xs] ((m-lift 2 #(list %1 %2)) xs xs)] (are (= _1 _2) ((m-lift 1 inc) (for [n (range 10)] (when (odd? n) n))) '(nil 2 nil 4 nil 6 nil 8 nil 10) |