11 lines
346 B
OCaml
11 lines
346 B
OCaml
(* we can just use exit from 4.07 onwards, but 4.06
|
|
* and earlier executed at_exit recursively *)
|
|
external sys_exit : int -> 'a = "caml_sys_exit"
|
|
let () = at_exit (fun () -> sys_exit 0)
|
|
|
|
#if OCAML_VERSION >= (4,8,0)
|
|
let () = Clflags.(error_style := Some Short)
|
|
#endif
|
|
|
|
let () = Clflags.(color := Some Never)
|
|
let () = Ppxlib.Driver.standalone ()
|