let
lexfail msg =
raise (
Failure
(
"Line "
^ string_of_int !line_number ^
": "
^ msg))