Escaped invalid characters before printing lexical error message.
This commit is contained in:
parent
61575e13ea
commit
c0f541a803
@ -333,7 +333,7 @@ module Make (Token: TOKEN) : (S with module Token = Token) =
|
||||
Invalid_utf8_sequence ->
|
||||
"Invalid UTF-8 sequence.\n"
|
||||
| Unexpected_character c ->
|
||||
sprintf "Unexpected character '%c'.\n" c
|
||||
sprintf "Unexpected character '%s'.\n" (Char.escaped c)
|
||||
| Undefined_escape_sequence ->
|
||||
"Undefined escape sequence.\n\
|
||||
Hint: Remove or replace the sequence.\n"
|
||||
|
@ -1 +0,0 @@
|
||||
let version = "629bb48b8f2d08187324e4ab0e649f4f784bb21b"
|
Loading…
Reference in New Issue
Block a user