Commit cf7917ed authored by Kim Nguyễn's avatar Kim Nguyễn
Browse files

Fix a forgotten `failwith "todo"` for the case of invalid character literals.

parent 559a6d39
......@@ -57,7 +57,7 @@ let seq_of_string s =
let parse_char loc s =
match seq_of_string s with
| [ c ] -> c
| _ -> failwith "todo"
| _ -> parsing_error loc (Format.sprintf "Invalid character litteral '%s'" s)
let mk_rec_field loc lab def =
let o, x, y =
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment