let found_newline lexbuf diff = let curr_p = lexbuf.lex_curr_p in lexbuf.lex_curr_p <- { curr_p with pos_lnum = curr_p.pos_lnum + 1; pos_bol = max 1 (curr_p.pos_cnum - diff); }