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