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