X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_engine%2FgrafiteSync.ml;h=ca29d39fcc1a159459bd96ab9bc42d0e52772a76;hb=a90c31c1b53222bd6d57360c5ba5c2d0fe7d5207;hp=47744f66e0332e962b2feace6b5f42cb0399a8df;hpb=4377e950998c9c63937582952a79975947aa9a45;p=helm.git

diff --git a/helm/software/components/grafite_engine/grafiteSync.ml b/helm/software/components/grafite_engine/grafiteSync.ml
index 47744f66e..ca29d39fc 100644
--- a/helm/software/components/grafite_engine/grafiteSync.ml
+++ b/helm/software/components/grafite_engine/grafiteSync.ml
@@ -162,11 +162,7 @@ let uri_list_diff l2 l1 =
   let diff = S.diff s2 s1 in
   S.fold (fun uri uris -> uri :: uris) diff []
 
-let initial_status lexicon_status baseuri =
- (new GrafiteTypes.status baseuri)#set_lstatus lexicon_status#lstatus
-;;
-
-let time_travel  ~present ?(past=initial_status present present#baseuri) () =
+let time_travel ~present ~past =
   let objs_to_remove =
    uri_list_diff present#objects past#objects in
   List.iter LibrarySync.remove_obj objs_to_remove;
@@ -174,10 +170,14 @@ let time_travel  ~present ?(past=initial_status present present#baseuri) () =
   NCicLibrary.time_travel past
 ;;
 
-let init lexicon_status =
+let initial_status lexicon_status baseuri =
+ (new GrafiteTypes.status baseuri)#set_lstatus lexicon_status#lstatus
+;;
+
+let init baseuri =
   CoercDb.restore CoercDb.empty_coerc_db;
   LibraryObjects.reset_defaults ();
-  initial_status lexicon_status
+  initial_status baseuri
   ;;
 let pop () =
   LibrarySync.pop ();