Update to Java commit 089f27f (2024.02.21): CLJ-2568 clojure.walk now retains metadata when walking lists and seqs

Author: dmiller

Clojure/Clojure.Source/clojure/walk.clj

@@ -41,11 +41,11 @@ the sorting function."}
   {:added "1.1"} 
   [inner outer form]
   (cond
-   (list? form) (outer (apply list (map inner form)))
+   (list? form) (outer (with-meta (apply list (map inner form)) (meta form)))
    (instance? clojure.lang.IMapEntry form)
    (outer (clojure.lang.MapEntry/create (inner (key form)) (inner (val form))))
    (instance? System.Collections.DictionaryEntry form) (outer [(inner (.Key ^System.Collections.DictionaryEntry form)) (inner (.Value ^System.Collections.DictionaryEntry form))])
-   (seq? form) (outer (doall (map inner form)))
+   (seq? form) (outer (with-meta (doall (map inner form)) (meta form)))
    (instance? clojure.lang.IRecord form)
      (outer (reduce (fn [r x] (conj r (inner x))) form form))
    (coll? form) (outer (into (empty form) (map inner form)))

Clojure/Clojure.Tests/clojure/test_clojure/clojure_walk.clj

@@ -62,4 +62,16 @@
   "Checks that walk preserves the MapEntry type. See CLJ-2031."
   (let [coll [:html {:a ["b" 1]} ""]
         f (fn [e] (if (and (vector? e) (not (map-entry? e))) (apply list e) e))]
-    (is (= (list :html {:a (list "b" 1)} "") (w/postwalk f coll)))))
+    (is (= (list :html {:a (list "b" 1)} "") (w/postwalk f coll)))))
+
+    
+(defrecord RM [a])
+(deftest retain-meta
+  (let [m {:foo true}]
+    (are [o] (= m (meta (w/postwalk identity (with-meta o m))))
+      '(1 2)
+      [1 2]
+      #{1 2}
+      {1 2}
+      (map inc (range 3))
+      (->RM 1))))