added support for associative destrucuring for seqs by pouring them i…

…nto a map first, thus supporting associative destruring of & args
clojure · Mar 23, 2010 · 2938997 · 2938997
1 parent 67864eb
commit 2938997
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
@@ -3012,7 +3012,8 @@
                      (fn [bvec b v]
                        (let [gmap (or (:as b) (gensym "map__"))
                              defaults (:or b)]
-                         (loop [ret (-> bvec (conj gmap) (conj v))
+                         (loop [ret (-> bvec (conj gmap) (conj v)
+                                        (conj gmap) (conj `(if (seq? ~gmap) (apply hash-map ~gmap) ~gmap)))
                                 bes (reduce
                                      (fn [bes entry]
                                        (reduce #(assoc %1 %2 ((val entry) %2))