let
lex_error lexbuf s =
raise (
Error
(loc lexbuf,
"lexical error, "
^ s))