CLJS-1434: clojure.walk no longer preserves meta on vectors

Remove redundant IMapEntry case which was capturing vectors and not preserving meta. Instead rely on coll?

Author: swannodette

src/main/cljs/clojure/walk.cljs

@@ -43,13 +43,11 @@ the sorting function."}
   {:added "1.1"}
   [inner outer form]
   (cond
-    (list? form) (outer (apply list (map inner form)))
-    (satisfies? IMapEntry form) (outer (vec (map inner form)))
-    (seq? form) (outer (doall (map inner form)))
-    (satisfies? IRecord form)
-    (outer (reduce (fn [r x] (conj r (inner x))) form form))
-    (coll? form) (outer (into (empty form) (map inner form)))
-    :else (outer form)))
+    (list? form)   (outer (apply list (map inner form)))
+    (seq? form)    (outer (doall (map inner form)))
+    (record? form) (outer (reduce (fn [r x] (conj r (inner x))) form form))
+    (coll? form)   (outer (into (empty form) (map inner form)))
+    :else          (outer form)))
 
 (defn postwalk
   "Performs a depth-first, post-order traversal of form.  Calls f on

src/test/cljs/clojure/walk_test.cljs

@@ -19,4 +19,11 @@
            (w/prewalk #(if (keyword? %) (str %) %) (Rec1. 1)))
         "Mirror Clojure behavior")))
 
-
+(deftest test-preserves-meta
+  (testing "Test preserves meta"
+    (is (= (-> (w/prewalk identity [1 (with-meta [1 2] {:foo 3})])
+             (nth 1) meta)
+           {:foo 3}))
+    (is (= (-> (w/postwalk identity [1 (with-meta [1 2] {:foo 3})])
+             (nth 1) meta)
+          {:foo 3}))))