let syntax_exception msg lexbuf= raise (LexerException (msg, lexbuf.Lexing.lex_curr_p.Lexing.pos_lnum, lexbuf.Lexing.lex_curr_p.Lexing.pos_cnum - lexbuf.Lexing.lex_curr_p.Lexing.pos_bol))