let add_bump bump state str ~max_pos ~pos c cont = Buffer.add_char state.pbuf c; bump state; cont state str ~max_pos ~pos:(pos + 1)