acic_procedural and tactics removed

[helm.git] / matita / matita / matitaGui.ml

diff --git a/matita/matita/matitaGui.ml b/matita/matita/matitaGui.ml
index 417a758b7b5d088c5c59f224e4741e418365bba8..793a914e071d98c5214fd7034f62cbba098dfd7f 100644 (file)
--- a/matita/matita/matitaGui.ml
+++ b/matita/matita/matitaGui.ml
@@ -72,12 +72,9 @@ let clean_current_baseuri grafite_status =
 let save_moo grafite_status = 
   let script = MatitaScript.current () in
   let baseuri = grafite_status#baseuri in
-  let no_pstatus = 
-    grafite_status#proof_status = GrafiteTypes.No_proof 
-  in
-  match script#bos, script#eos, no_pstatus with
-  | true, _, _ -> ()
-  | _, true, true ->
+  match script#bos, script#eos with
+  | true, _ -> ()
+  | _, true ->
      let moo_fname = 
        LibraryMisc.obj_file_of_baseuri ~must_exist:false ~baseuri
         ~writable:true in