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/accumulators.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/accumulators.clj')
| -rw-r--r-- | src/clojure/contrib/accumulators.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/clojure/contrib/accumulators.clj b/src/clojure/contrib/accumulators.clj index bbbcd64f..48b00b2a 100644 --- a/src/clojure/contrib/accumulators.clj +++ b/src/clojure/contrib/accumulators.clj @@ -20,7 +20,7 @@ (ns clojure.contrib.accumulators (:use [clojure.contrib.types :only (deftype get-value get-values)]) - (:use [clojure.contrib.macros :only (letfn)]) + (:use [clojure.contrib.macros :only (letfn-kh)]) (:use [clojure.contrib.def :only (defvar defvar- defmacro-)])) (defmulti add @@ -222,7 +222,7 @@ (defmethod combine type-tag [v & vs] - (letfn [add-item [counter [item n]] + (letfn-kh [add-item [counter [item n]] (assoc counter item (+ n (get counter item 0))) add-two [c1 c2] (reduce add-item c1 c2)] (reduce add-two v vs))) |