-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 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