]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/matita/matitaGui.ml
Estatus finally merged into the global status using inheritance.
[helm.git] / helm / software / matita / matitaGui.ml
index 5272f07a71fd01e48c8242cb77f2bc6657f3fbbc..8b38950bb67d6b6ef6922e04cfbcef3b51a2c9c2 100644 (file)
@@ -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 
 ;;