ocaml-standard-library/lib/char.ml

12 lines
175 B
OCaml
Executable File

open General
external unsafe_char_of_int : int -> char = "%identity"
let of_int n =
if n < 0 or n > 255 then
None
else
Some (unsafe_char_of_int n)