Modulification of identifier

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16071 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 8 insertions, 8 deletions

diff --git a/library/decls.ml b/library/decls.ml
index af6ee3448..205e51f9b 100644
--- a/library/decls.ml
+++ b/library/decls.ml
@@ -20,25 +20,25 @@ open Libnames
 type variable_data =
     dir_path * bool (* opacity *) * Univ.constraints * logical_kind
 
-let vartab = ref (Idmap.empty : variable_data Idmap.t)
+let vartab = ref (Id.Map.empty : variable_data Id.Map.t)
 
 let _ = Summary.declare_summary "VARIABLE"
   { Summary.freeze_function = (fun () -> !vartab);
     Summary.unfreeze_function = (fun ft -> vartab := ft);
-    Summary.init_function = (fun () -> vartab := Idmap.empty) }
+    Summary.init_function = (fun () -> vartab := Id.Map.empty) }
 
-let add_variable_data id o = vartab := Idmap.add id o !vartab
+let add_variable_data id o = vartab := Id.Map.add id o !vartab
 
-let variable_path id = let (p,_,_,_) = Idmap.find id !vartab in p
-let variable_opacity id = let (_,opaq,_,_) = Idmap.find id !vartab in opaq
-let variable_kind id = let (_,_,_,k) = Idmap.find id !vartab in k
-let variable_constraints id = let (_,_,cst,_) = Idmap.find id !vartab in cst
+let variable_path id = let (p,_,_,_) = Id.Map.find id !vartab in p
+let variable_opacity id = let (_,opaq,_,_) = Id.Map.find id !vartab in opaq
+let variable_kind id = let (_,_,_,k) = Id.Map.find id !vartab in k
+let variable_constraints id = let (_,_,cst,_) = Id.Map.find id !vartab in cst
 
 let variable_secpath id =
   let dir = drop_dirpath_prefix (Lib.library_dp()) (variable_path id) in
   make_qualid dir id
 
-let variable_exists id = Idmap.mem id !vartab
+let variable_exists id = Id.Map.mem id !vartab
 
 (** Datas associated to global parameters and constants *)