diff options
| author | Emilio Jesus Gallego Arias | 2019-02-07 03:34:21 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-02-07 03:34:21 +0100 |
| commit | 516af694c8f8a46abf67b8124b315fb8bc12df8b (patch) | |
| tree | 5f67e4b20555a54473f530a97d622374d72cab63 /gramlib | |
| parent | 7886c6d8e0663ba346fff52837012c7fc952ecc1 (diff) | |
| parent | 2bdd0f98ea8fa2444e4198d7be160a189aa5f933 (diff) | |
Merge PR #9479: Remove the Plexing.Error exception.
Reviewed-by: ejgallego
Diffstat (limited to 'gramlib')
| -rw-r--r-- | gramlib/grammar.ml | 5 | ||||
| -rw-r--r-- | gramlib/plexing.ml | 2 | ||||
| -rw-r--r-- | gramlib/plexing.mli | 3 |
3 files changed, 0 insertions, 10 deletions
diff --git a/gramlib/grammar.ml b/gramlib/grammar.ml index 0ad11d075f..e959e9b9e6 100644 --- a/gramlib/grammar.ml +++ b/gramlib/grammar.ml @@ -663,13 +663,8 @@ let init_entry_functions entry = entry.econtinue <- f; f lev bp a strm) let extend_entry ~warning entry position rules = - try let elev = Gramext.levels_of_rules ~warning entry position rules in entry.edesc <- Dlevels elev; init_entry_functions entry - with Plexing.Error s -> - Printf.eprintf "Lexer initialization error:\n- %s\n" s; - flush stderr; - failwith "Grammar.extend" (* Deleting a rule *) diff --git a/gramlib/plexing.ml b/gramlib/plexing.ml index f99a3c2480..fce5445ad8 100644 --- a/gramlib/plexing.ml +++ b/gramlib/plexing.ml @@ -4,8 +4,6 @@ type pattern = string * string -exception Error of string - type location_function = int -> Loc.t type 'te lexer_func = char Stream.t -> 'te Stream.t * location_function diff --git a/gramlib/plexing.mli b/gramlib/plexing.mli index eed4082e00..6139dc4020 100644 --- a/gramlib/plexing.mli +++ b/gramlib/plexing.mli @@ -19,9 +19,6 @@ type pattern = string * string - The way tokens patterns are interpreted to parse tokens is done by the lexer, function [tok_match] below. *) -exception Error of string - (** A lexing error exception to be used by lexers. *) - (** Lexer type *) type 'te lexer = |