let mk_parse_pos { parse_pos } buf_pos =
  set_parse_pos parse_pos buf_pos;
  parse_pos