Estatus finally merged into the global status using inheritance.

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

diff --git a/helm/software/matita/matitaGui.ml b/helm/software/matita/matitaGui.ml
index 7b5a929cb9466d517acebb527d6ead0baeacf5bb..8b38950bb67d6b6ef6922e04cfbcef3b51a2c9c2 100644 (file)
--- a/helm/software/matita/matitaGui.ml
+++ b/helm/software/matita/matitaGui.ml
@@ -67,11 +67,11 @@ class console ~(buffer: GText.buffer) () =
   end
         
 let clean_current_baseuri grafite_status = 
-  LibraryClean.clean_baseuris [GrafiteTypes.get_baseuri grafite_status]
+  LibraryClean.clean_baseuris [grafite_status#baseuri]
 
 let save_moo grafite_status = 
   let script = MatitaScript.current () in
-  let baseuri = GrafiteTypes.get_baseuri grafite_status in
+  let baseuri = grafite_status#baseuri in
   let no_pstatus = 
     grafite_status#proof_status = GrafiteTypes.No_proof 
   in
@@ -87,9 +87,9 @@ let save_moo grafite_status =
      in
      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;
+      grafite_status#lstatus.LexiconEngine.lexicon_content_rev;
      NRstatus.Serializer.serialize ~baseuri:(NUri.uri_of_string baseuri)
-      (GrafiteTypes.get_estatus grafite_status)#dump
+      grafite_status#dump
   | _ -> clean_current_baseuri grafite_status 
 ;;