CLJS-2959: sort and sort-by should retain meta

Author: namenu

src/main/cljs/cljs/core.cljs

@@ -2457,7 +2457,7 @@ reduces them without incurring seq initialization"
      (let [a (to-array coll)]
        ;; matching Clojure's stable sort, though docs don't promise it
        (garray/stableSort a (fn->comparator comp))
-       (seq a))
+       (with-meta (seq a) (meta coll)))
      ())))
 
 (defn sort-by

src/test/cljs/cljs/core_test.cljs

@@ -1738,6 +1738,10 @@
   (is (= (symbol (->Var nil 'bar/foo nil)) 'bar/foo))
   (is (thrown? js/Error (symbol 1))))
 
+(deftest test-cljs-2959
+  (is (= {:a true} (meta (sort (with-meta (range 10) {:a true})))))
+  (is (= {:a true} (meta (sort-by :a (with-meta (seq [{:a 5} {:a 2} {:a 3}]) {:a true}))))))
+
 (deftest test-cljs-2991
   (let [o (js-obj)]
     (is (object? o))