let hsize = 7000
let env = H.create hsize
-let entry = ref 1
+let age = ref 1
(* Internal functions *******************************************************)
(* Interface functions ******************************************************)
-let set_obj f obj =
- let _, uri, b = obj in
- let obj = !entry, uri, b in
- incr entry; H.add env uri obj; f obj
+let set_entry f entry =
+ let _, uri, b = entry in
+ let entry = !age, uri, b in
+ incr age; H.add env uri entry; f entry
-let get_obj f uri =
+let get_entry f uri =
try f (H.find env uri) with Not_found -> error uri