let bump_line_cont state str ~max_pos ~pos cont = bump_text_line state; cont state str ~max_pos ~pos:(pos + 1)