-let set_obj f obj =
- let _, uri, b, t = obj in
- let obj = !entry, uri, b, t in
- incr entry; H.add env uri obj; f obj
+let set_entity f (a, uri, b) =
+ let age = get_age () in
+ let entity = (Y.Apix age :: a), uri, b in
+ H.add env uri entity; f entity