| _, _, B.Abbr (B.Cast (w, v)) -> f x w
| _, _, B.Abbr _ -> assert false
| _, _, B.Void ->
- error1 "reference to excluded object" c x
+ error1 "reference to excluded entry" c x
in
- E.get_obj f uri
+ E.get_entry f uri
| B.Bind (l, id, B.Abbr v, t) ->
let f xv xt tt =
f (S.sh2 v xv t xt x (B.bind_abbr l id)) (B.bind_abbr l id xv tt)