diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-19 09:57:52 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-19 09:57:52 +0000 |
| commit | 8f0a9f241e3d905bdecfe9ba3d0c0f7feb1e2b30 (patch) | |
| tree | 87306e3dcfbe4b75038f3596c6168bf6edfa3cd3 /parsing/egrammar.ml | |
| parent | 1b6a8e5777cfe498f71680a0963271c27dbae26b (diff) | |
Protection contre l'effacement des niveaux vides de operconstr et pattern par le delete_rule de camlp4
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4947 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/egrammar.ml')
| -rw-r--r-- | parsing/egrammar.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/parsing/egrammar.ml b/parsing/egrammar.ml index 5473d8248..eb61a70bd 100644 --- a/parsing/egrammar.ml +++ b/parsing/egrammar.ml @@ -425,6 +425,7 @@ let unfreeze (grams, lex) = let n,l = number_of_entries undo in remove_grammars n; remove_levels l; + reinit_levels (); grammar_state := common; Lexer.unfreeze lex; List.iter extend_grammar (List.rev redo) |