fix: compat with OCaml 5.4

c-cube · c-cube · commit f934db1e9c16 · 2025-05-26T23:44:02.000-04:00
close #477
diff --git a/src/core/CCArray.ml b/src/core/CCArray.ml
@@ -93,7 +93,7 @@ let sort_indices cmp a =
   Array.sort (fun k1 k2 -> cmp a.(k1) a.(k2)) b;
   b
 
-let sort_ranking cmp a = sort_indices compare (sort_indices cmp a)
+let sort_ranking cmp a = sort_indices CCInt.compare (sort_indices cmp a)
 
 let rev a =
   let b = Array.copy a in

Original file line number	Diff line number	Diff line change
`@@ -93,7 +93,7 @@ let sort_indices cmp a =`
`93`	`93`	`Array.sort (fun k1 k2 -> cmp a.(k1) a.(k2)) b;`
`94`	`94`	`b`
`95`	`95`
`96`		`-let sort_ranking cmp a = sort_indices compare (sort_indices cmp a)`
	`96`	`+let sort_ranking cmp a = sort_indices CCInt.compare (sort_indices cmp a)`
`97`	`97`
`98`	`98`	`let rev a =`
`99`	`99`	`let b = Array.copy a in`