From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Tue, 5 Jul 2005 15:15:06 +0000 (+0000)
Subject: Wrong merge repaired.
X-Git-Tag: V_0_7_1~81
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=dde96f24006a3e74b88fa631e290dbb508f2fbb3;p=helm.git

Wrong merge repaired.
---

diff --git a/helm/matita/matitacLib.ml b/helm/matita/matitacLib.ml
index de8975215..d9eba68e2 100644
--- a/helm/matita/matitacLib.ml
+++ b/helm/matita/matitacLib.ml
@@ -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