let
mk_parse_pos { parse_pos = parse_pos } buf_pos =
parse_pos.buf_pos <- buf_pos;
parse_pos