diff options
| author | Christophe Grand <christophe@cgrand.net> | 2009-02-23 17:27:33 +0000 |
|---|---|---|
| committer | Christophe Grand <christophe@cgrand.net> | 2009-02-23 17:27:33 +0000 |
| commit | cbf439ccf0e8e7d5533862a5c2d41cdf66f719d5 (patch) | |
| tree | 726a8b8d37ff5ceac45636482538e63c3336742d /src/clojure/contrib/seq_utils.clj | |
| parent | 71157849b45227078fde454893610e2655c1203e (diff) | |
changed rec-seq to work with r1300
Diffstat (limited to 'src/clojure/contrib/seq_utils.clj')
| -rw-r--r-- | src/clojure/contrib/seq_utils.clj | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/clojure/contrib/seq_utils.clj b/src/clojure/contrib/seq_utils.clj index ef6ebfcf..007c1755 100644 --- a/src/clojure/contrib/seq_utils.clj +++ b/src/clojure/contrib/seq_utils.clj @@ -94,8 +94,9 @@ "Similar to lazy-seq but binds the resulting seq to the supplied binding-name, allowing for recursive expressions." [binding-name & body] - (list* '#^{:once true :super-name "clojure/lang/LazySeq"} fn* binding-name [] body)) - + `((fn helper# [] + (lazy-seq (let [~binding-name (helper#)] ~@body))))) + (defmacro rec-cat "Similar to lazy-cat but binds the resulting sequence to the supplied binding-name, allowing for recursive expressions." |