diff options
| author | Konrad Hinsen <konrad.hinsen@laposte.net> | 2009-02-23 12:40:21 +0000 |
|---|---|---|
| committer | Konrad Hinsen <konrad.hinsen@laposte.net> | 2009-02-23 12:40:21 +0000 |
| commit | 6a59026ea72fcd1ec1d0465326d97e23ed37e4cd (patch) | |
| tree | ff5d1047f286b3e02d4b6803d3c78fef601b2f25 /src/clojure/contrib/macros.clj | |
| parent | 5c68bc277d17e3dcdfef7ea6e79402ec7a190044 (diff) | |
macros and monads/examples: removed lazy-cons-based code
Diffstat (limited to 'src/clojure/contrib/macros.clj')
| -rw-r--r-- | src/clojure/contrib/macros.clj | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/src/clojure/contrib/macros.clj b/src/clojure/contrib/macros.clj index 5820e48e..e58892c4 100644 --- a/src/clojure/contrib/macros.clj +++ b/src/clojure/contrib/macros.clj @@ -26,12 +26,3 @@ (let [makefn (fn [[name args body]] (list name (list 'fn name args body))) fns (vec (apply concat (map makefn (partition 3 fn-bindings))))] `(let ~fns ~@exprs))) - -;; By Konrad Hinsen -(defmacro lazy-and-standard-branch - "Comile the first expression in the lazy branch of Clojure, and the second - one in the standard branch." - [lazy-expr standard-expr] - (if (find (ns-map (find-ns 'clojure.core)) 'lazy-seq) - lazy-expr - standard-expr)) |