10 lines
295 B
OCaml
10 lines
295 B
OCaml
let parse s = Scanf.sscanf s "%d.%d" (fun major minor -> (major, minor))
|
|
|
|
let () =
|
|
let version = parse Sys.ocaml_version in
|
|
if version >= (4, 8)
|
|
then print_string "unsafe_stable.ml"
|
|
else if version >= (4, 7)
|
|
then print_string "unsafe_pre408.ml"
|
|
else print_string "unsafe_pre407.ml"
|
|
|