V_______________________________________________________________ *)
module U = NUri
-module H = U.UriHash
-module Y = Entity
+module K = U.UriHash
+module E = Entity
module B = Brg
let hsize = 7000
-let env = H.create hsize
+let env = K.create hsize
(* Internal functions *******************************************************)
(* decps *)
let set_entity (a, uri, b) =
let age = get_age () in
- let entity = (Y.Apix age :: a), uri, b in
- H.add env uri entity; entity
+ let entity = (E.Apix age :: a), uri, b in
+ K.add env uri entity; entity
let get_entity uri =
- try H.find env uri with Not_found -> [], uri, Y.Void
+ try K.find env uri with Not_found -> [], uri, E.Void