X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaGui.ml;fp=helm%2Fmatita%2FmatitaGui.ml;h=4ca67368fce43a6d4fe880ad2c75f956f5d518b5;hb=40a09a72c4e86256ace6e8b26942d1bd2238534b;hp=a10493fca8588fd497e92b8a13a4911e3d1bee97;hpb=8c1f73782884c50c5b651a8a4e6588f494d85958;p=helm.git

diff --git a/helm/matita/matitaGui.ml b/helm/matita/matitaGui.ml
index a10493fca..4ca67368f 100644
--- a/helm/matita/matitaGui.ml
+++ b/helm/matita/matitaGui.ml
@@ -75,11 +75,17 @@ let ask_and_save_moo_if_needed parent fname lexicon_status grafite_status =
   let baseuri = DependenciesParser.baseuri_of_script ~include_paths:[] fname in
   let moo_fname = LibraryMisc.obj_file_of_baseuri ~basedir ~baseuri in
   let save () =
-    let metadata_fname= LibraryMisc.metadata_file_of_baseuri ~basedir ~baseuri in
-    GrafiteMarshal.save_moo moo_fname
-     grafite_status.GrafiteTypes.moo_content_rev;
-    LibraryNoDb.save_metadata metadata_fname
-     lexicon_status.LexiconEngine.metadata
+    let metadata_fname =
+     LibraryMisc.metadata_file_of_baseuri ~basedir ~baseuri in
+    let lexicon_fname =
+     LibraryMisc.lexicon_file_of_baseuri ~basedir ~baseuri
+    in
+     GrafiteMarshal.save_moo moo_fname
+      grafite_status.GrafiteTypes.moo_content_rev;
+     LibraryNoDb.save_metadata metadata_fname
+      lexicon_status.LexiconEngine.metadata;
+     LexiconMarshal.save_lexicon lexicon_fname
+      lexicon_status.LexiconEngine.lexicon_content_rev
   in
   if (MatitaScript.current ())#eos &&
      grafite_status.GrafiteTypes.proof_status = GrafiteTypes.No_proof