diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-02-01 22:22:04 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-02-01 22:22:04 +0000 |
| commit | 0ef809b4c3ec11e0ba793903457dba5a9f8e3200 (patch) | |
| tree | 652c91fa9f1800cffce97d48b36ae13fb12e7620 | |
| parent | d9dc9831f6f396685bcc9ffe69c1293da4d9640d (diff) | |
added seq calls to for
| -rw-r--r-- | src/boot.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot.clj b/src/boot.clj index eac2ad4b..e7de0a4e 100644 --- a/src/boot.clj +++ b/src/boot.clj @@ -1092,11 +1092,11 @@ ([] (. clojure.lang.PersistentArrayMap EMPTY)) ([& args] (new clojure.lang.PersistentArrayMap (to-array args)))) -(defmacro for +(defmacro for ([seq-expr expr] (list `for seq-expr `true expr)) ([seq-exprs filter-expr expr] (let [items (take-nth 2 seq-exprs) - seqs (take-nth 2 (drop 1 seq-exprs)) + seqs (map (fn [x] (list `seq x)) (take-nth 2 (drop 1 seq-exprs))) gseqs (map (fn [x] (gensym (strcat (name x) "seq__"))) items) gs (map (fn [x] (gensym (strcat (name x) "s__"))) items) limit (dec (count items)) |