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/stream_utils.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/stream_utils.clj')
| -rw-r--r-- | src/clojure/contrib/stream_utils.clj | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/clojure/contrib/stream_utils.clj b/src/clojure/contrib/stream_utils.clj index 605426db..3ba04e69 100644 --- a/src/clojure/contrib/stream_utils.clj +++ b/src/clojure/contrib/stream_utils.clj @@ -53,7 +53,7 @@ in the form of a vector." (:use [clojure.contrib.monads]) - (:use [clojure.contrib.macros :only (letfn)])) + (:use [clojure.contrib.macros :only (letfn-kh)])) (let [eos (Object.) @@ -150,7 +150,7 @@ stream-m monad) and a vector of stream arguments and returns a stream generator function representing the output stream of the transformer." [st streams] - (letfn [make-gen [s] + (letfn-kh [make-gen [s] (fn [eos] (loop [s s] (let [[v ns] (st s)] @@ -207,7 +207,7 @@ sequences. Flattening is not recursive, only one level of sequences will be removed." [s] - (letfn [buffer-gen [buffer stream] + (letfn-kh [buffer-gen [buffer stream] (fn [eos] (loop [buffer buffer stream stream] |