val go : unit -> unit
val main : mode:[ `COMPILER | `TOPLEVEL ] -> unit
+(** fname is the .ma *)
+val dump_moo_to_file:
+ string ->
+ (CicNotationPt.term, GrafiteAst.obj) GrafiteAst.command list ->
+ 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