diff options
| author | herbelin | 2002-12-01 11:58:40 +0000 |
|---|---|---|
| committer | herbelin | 2002-12-01 11:58:40 +0000 |
| commit | 43a02c4fb44452e97cf995a58d0e8db5aecc8d08 (patch) | |
| tree | b4ec6d6fa526b8a440c5193cf37e8ae74790748f | |
| parent | 5fe1b21b55dc0a037079e4ef7a409e63ead7be18 (diff) | |
Synchro level (suite)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3347 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/egrammar.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/parsing/egrammar.ml b/parsing/egrammar.ml index ade148afec..e7a6bdd1ba 100644 --- a/parsing/egrammar.ml +++ b/parsing/egrammar.ml @@ -363,7 +363,9 @@ let number_of_entries gcl = let unfreeze (grams, lex) = let (undo, redo, common) = factorize_grams !grammar_state grams in - remove_grammars (number_of_entries undo); + let n = number_of_entries undo in + remove_grammars n; + remove_levels n; grammar_state := common; Lexer.unfreeze lex; List.iter extend_grammar (List.rev redo) |