Release 0.5.9.

[helm.git] / helm / software / components / grafite_engine / grafiteSync.ml

diff --git a/helm/software/components/grafite_engine/grafiteSync.ml b/helm/software/components/grafite_engine/grafiteSync.ml
index 47744f66e0332e962b2feace6b5f42cb0399a8df..ca29d39fcc1a159459bd96ab9bc42d0e52772a76 100644 (file)
--- 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 ();