Source file `shadowed_infix.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
(** Shadow monomorphic comparison operators. *)

let ( =. ) (x : float) (y : float) = x = y [@@inline]

let ( <. ) (x : float) (y : float) = x < y [@@inline]

let ( >. ) (x : float) (y : float) = x > y [@@inline]

let ( <=. ) (x : float) (y : float) = x <= y [@@inline]

let ( >=. ) (x : float) (y : float) = x >= y [@@inline]

let ( = ) (x : int) (y : int) = x = y [@@inline]

let ( < ) (x : int) (y : int) = x < y [@@inline]

let ( > ) (x : int) (y : int) = x > y [@@inline]

let ( <= ) (x : int) (y : int) = x <= y [@@inline]

let ( >= ) (x : int) (y : int) = x >= y [@@inline]