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))