This commit is contained in:
NoahBatchelor 2024-07-19 12:49:59 -05:00
commit 7c3b16368e

View file

@ -7,8 +7,19 @@ let ( > ) : int -> int -> bool = Stdlib.( > )
let ( <= ) : int -> int -> bool = Stdlib.( <= )
let ( >= ) : int -> int -> bool = Stdlib.( >= )
let compare : int -> int -> int = Stdlib.compare
[@@@ifge 4.13]
let min : int -> int -> int = Int.min
let max : int -> int -> int = Int.max
[@@@else_]
let min : int -> int -> int = Stdlib.min
let max : int -> int -> int = Stdlib.max
[@@@endif]
let ( =. ) : float -> float -> bool = Stdlib.( = )
let ( <>. ) : float -> float -> bool = Stdlib.( <> )
let ( <. ) : float -> float -> bool = Stdlib.( < )