val main : mode:[ `COMPILER | `TOPLEVEL ] -> unit
(** clean_exit n
- performs an exit [n] after a complete clean-up of what was partially compiled
+ if n = Some n it performs an exit [n] after a complete clean-up of what was
+ partially compiled
+ otherwise it performs the clean-up without exiting
*)
-val clean_exit : int -> unit
+val clean_exit : int option -> unit