diff --git a/flap/src/hopix/hopixLexer.mll b/flap/src/hopix/hopixLexer.mll index ef6815c..0f2b370 100644 --- a/flap/src/hopix/hopixLexer.mll +++ b/flap/src/hopix/hopixLexer.mll @@ -31,12 +31,12 @@ | "\\\"" -> Some '"' | "\\\\" -> Some '\\' | _ -> - (match String.get data 1 with - | '0' | '1' | '2' -> - let caractere = String.sub data 1 (String.length data - 1) in - let ascii_code = int_of_string caractere in - Some (Char.chr ascii_code) - | _ -> None) + (try + let caractere = String.sub data 1 (String.length data - 1) in + let ascii_code = int_of_string caractere in + Some (Char.chr ascii_code) + with + | _ -> None) ;; }