commit
390d4e3ce5
|
@ -20,7 +20,7 @@ external ( && ) : bool -> bool -> bool = "%sequand"
|
|||
external ( || ) : bool -> bool -> bool = "%sequor"
|
||||
let equal : bool -> bool -> bool = ( = )
|
||||
let compare : bool -> bool -> int = Stdlib.compare
|
||||
let to_int = function false -> 0 | true -> 1
|
||||
external to_int : bool -> int = "%identity"
|
||||
let to_float = function false -> 0. | true -> 1.
|
||||
|
||||
(*
|
||||
|
|
Loading…
Reference in New Issue