-let set_obj f obj uri =
- H.add env uri obj; f obj uri
-
-let get_obj f uri =
- try f (H.find env uri) uri
- with Not_found -> raise (ObjectNotFound (lazy (U.string_of_uri uri)))
+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_entry err f uri =
+ try f (H.find env uri) with Not_found -> err ()