anil.recoil.org
The unpac monorepo manager self-hosting as a monorepo using unpac
Generate simpler code for comparisons
The ocaml compiler (without flambda) does not optimize
`Int.compare x y = 1` into a plain comparison.
+2
-2
lib/import.ml
+2
-2
lib/import.ml
···
11
11
12
12
let ( = ) = Int.equal
13
13
let ( == ) = [ `Use_phys_equal ]
14
-
let ( < ) x y = Int.compare x y = -1
15
-
let ( > ) x y = Int.compare x y = 1
14
+
let ( < ) (x : int) (y : int) = x < y
15
+
let ( > ) (x : int) (y : int) = x > y
16
16
let min = Int.min
17
17
let max = Int.max
18
18
let compare = Int.compare