let bump_text_pos { parse_pos } =
  parse_pos.Parse_pos.text_char <- parse_pos.Parse_pos.text_char + 1