CLJ-2417 sort and sort-by should retain meta

Signed-off-by: Stuart Halloway <[email protected]>

Author: puredanger

src/clj/clojure/core.clj

@@ -3105,7 +3105,7 @@
    (if (seq coll)
      (let [a (to-array coll)]
        (. java.util.Arrays (sort a comp))
-       (seq a))
+       (with-meta (seq a) (meta coll)))
      ())))
 
 (defn sort-by

test/clojure/test_clojure/sequences.clj

@@ -1364,3 +1364,7 @@
     (doseq [i (range 100)]
       (is (= s1 (concat (subseq s2 < i) (subseq s2 >= i))))
       (is (= (reverse s1) (concat (rsubseq s2 >= i) (rsubseq s2 < i)))))))
+
+(deftest test-sort-retains-meta
+  (= {:a true} (meta (sort (with-meta (range 10) {:a true}))))
+  (= {:a true} (meta (sort-by :a (with-meta (seq [{:a 5} {:a 2} {:a 3}]) {:a true})))))