remove reflection introduced in destructure

aerotuck · Jun 14, 2012 · 085712b · 085712b
1 parent 4ddb397
commit 085712b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
@@ -3930,9 +3930,10 @@
                      pmap
                      (fn [bvec b v]
                        (let [gmap (gensym "map__")
+                             gmapseq (with-meta gmap {:tag 'clojure.lang.ISeq})
                              defaults (:or b)]
                          (loop [ret (-> bvec (conj gmap) (conj v)
-                                        (conj gmap) (conj `(if (seq? ~gmap) (clojure.lang.PersistentHashMap/create ~gmap) ~gmap))
+                                        (conj gmap) (conj `(if (seq? ~gmap) (clojure.lang.PersistentHashMap/create ~gmapseq) ~gmap))
                                         ((fn [ret]
                                            (if (:as b)
                                              (conj ret (:as b) gmap)