Make sort wrap sortU

Signed-off-by: Zach Ploskey <[email protected]>

Author: zploskey

jscomp/others/belt_List.ml

@@ -692,16 +692,13 @@ let setAssocU xs x k eq =
 
 let setAssoc xs x k eq = setAssocU xs x k (fun [@bs] a b -> eq a b)
 
-let sort xs cmp =
-  let arr = toArray xs in
-  Belt_SortArray.stableSortInPlaceBy arr cmp;
-  fromArray arr
-
 let sortU xs cmp =
   let arr = toArray xs in
   Belt_SortArray.stableSortInPlaceByU arr cmp;
   fromArray arr
 
+let sort xs cmp = sortU xs (fun [@bs] x y -> cmp x y)
+
 let rec getByU xs p = 
   match xs with 
   | [] -> None

lib/js/belt_List.js

@@ -1210,18 +1210,16 @@ function setAssoc(xs, x, k, eq) {
   return setAssocU(xs, x, k, Curry.__2(eq));
 }
 
-function sort(xs, cmp) {
-  var arr = toArray(xs);
-  Belt_SortArray.stableSortInPlaceBy(arr, cmp);
-  return fromArray(arr);
-}
-
 function sortU(xs, cmp) {
   var arr = toArray(xs);
   Belt_SortArray.stableSortInPlaceByU(arr, cmp);
   return fromArray(arr);
 }
 
+function sort(xs, cmp) {
+  return sortU(xs, Curry.__2(cmp));
+}
+
 function getByU(_xs, p) {
   while(true) {
     var xs = _xs;