X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2FmatitaGui.ml;fp=helm%2Fsoftware%2Fmatita%2FmatitaGui.ml;h=7b5a929cb9466d517acebb527d6ead0baeacf5bb;hb=290350836dd1727b3e3cdd4ee71e666a39cc4a09;hp=c5906e16a00581d647bfc1dae646c40732e8fa36;hpb=f4c17198d8afe7c8cd62dbab527d08902d891491;p=helm.git

diff --git a/helm/software/matita/matitaGui.ml b/helm/software/matita/matitaGui.ml
index c5906e16a..7b5a929cb 100644
--- a/helm/software/matita/matitaGui.ml
+++ b/helm/software/matita/matitaGui.ml
@@ -73,7 +73,7 @@ let save_moo grafite_status =
   let script = MatitaScript.current () in
   let baseuri = GrafiteTypes.get_baseuri grafite_status in
   let no_pstatus = 
-    grafite_status.GrafiteTypes.proof_status = GrafiteTypes.No_proof 
+    grafite_status#proof_status = GrafiteTypes.No_proof 
   in
   match script#bos, script#eos, no_pstatus with
   | true, _, _ -> ()
@@ -85,8 +85,7 @@ let save_moo grafite_status =
        LibraryMisc.lexicon_file_of_baseuri 
          ~must_exist:false ~baseuri ~writable:true
      in
-     GrafiteMarshal.save_moo moo_fname
-       grafite_status.GrafiteTypes.moo_content_rev;
+     GrafiteMarshal.save_moo moo_fname grafite_status#moo_content_rev;
      LexiconMarshal.save_lexicon lexicon_fname
        (GrafiteTypes.get_estatus grafite_status)#lstatus.LexiconEngine.lexicon_content_rev;
      NRstatus.Serializer.serialize ~baseuri:(NUri.uri_of_string baseuri)