diff options
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/compat.ml4 | 2 | ||||
| -rw-r--r-- | parsing/egramcoq.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/parsing/compat.ml4 b/parsing/compat.ml4 index f872c4a2d8..ce0390e1d2 100644 --- a/parsing/compat.ml4 +++ b/parsing/compat.ml4 @@ -193,7 +193,7 @@ module GrammarMake (L:LexerSig) : GrammarSig = struct let entry_create = Entry.create let entry_parse e p = try Entry.parse e p - with Exc_located (loc,e) -> raise (Loc.add_loc e (to_coqloc loc)) + with Exc_located (loc,e) -> Loc.raise (to_coqloc loc) e IFDEF CAMLP5_6_02_1 THEN let entry_print ft x = Entry.print ft x ELSE diff --git a/parsing/egramcoq.ml b/parsing/egramcoq.ml index a0384faf84..9f49638618 100644 --- a/parsing/egramcoq.ml +++ b/parsing/egramcoq.ml @@ -355,7 +355,7 @@ let with_grammar_rule_protection f x = with reraise -> let reraise = Errors.push reraise in let () = unfreeze fs in - raise reraise + iraise reraise (**********************************************************************) (** Ltac quotations *) |