+ path, Some (T.Coercion (b, Filename.concat base_uri s))
+ | T.Section (b, id, _) as item ->
+ let path = if b then id :: path else List.tl path in
+ path, Some item
+ | item -> path, Some item
+ in
+ let set_includes st name =
+ try require st name (List.assoc name st.includes)
+ with Not_found -> ()