]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/matita/matitacLib.ml
Wrong merge repaired.
[helm.git] / helm / matita / matitacLib.ml
index de89752151952761eac0edb23be21fb1b7b61d42..d9eba68e233d8a3d7c3b2b223967d33efc524f18 100644 (file)
@@ -127,14 +127,6 @@ let go () =
   Sys.catch_break true;
   interactive_loop ()
 
-let clean_exit n =
- match !status with
-    None -> exit n
-  | Some status ->
-     let baseuri = MatitaTypes.get_string_option !status "baseuri" in
-      MatitacleanLib.clean_baseuris ~verbose:false [baseuri];
-      exit n
-  
 let dump_moo_to_file file moo =
  let os = open_out (MatitaMisc.obj_file_of_script file) in
  let output s = output_string os s in