Commit 29b68799 authored by Andrei Paskevich's avatar Andrei Paskevich

remove an unused exception

parent d2d1fc90
......@@ -29,14 +29,11 @@
exception IllegalCharacter of char
exception UnterminatedComment
exception UnterminatedString
exception AmbiguousPath of string * string
let () = Exn_printer.register (fun fmt e -> match e with
| IllegalCharacter c -> fprintf fmt "illegal character %c" c
| UnterminatedComment -> fprintf fmt "unterminated comment"
| UnterminatedString -> fprintf fmt "unterminated string"
| AmbiguousPath (f1, f2) ->
fprintf fmt "ambiguous path:@ both `%s'@ and `%s'@ match" f1 f2
| _ -> raise e)
let keywords = Hashtbl.create 97
......
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