diff options
| author | herbelin | 2005-09-21 14:47:19 +0000 |
|---|---|---|
| committer | herbelin | 2005-09-21 14:47:19 +0000 |
| commit | f4ff97b5ecd4bff4fc98316f08a757568e2f12c8 (patch) | |
| tree | a9ff364f5b5f1a8db8a5e3da9e9131edd719e938 | |
| parent | 2a04073f31f252231202a7ceaa367e26986b9546 (diff) | |
Niveau 99 permettant de parser { } nécessaire aussi dans l'entrée pattern
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7394 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/g_constrnew.ml4 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/parsing/g_constrnew.ml4 b/parsing/g_constrnew.ml4 index 99c3570f32..0111dbaf80 100644 --- a/parsing/g_constrnew.ml4 +++ b/parsing/g_constrnew.ml4 @@ -289,6 +289,7 @@ GEXTEND Gram [ "200" RIGHTA [ ] | "100" LEFTA [ p = pattern; "|"; pl = LIST1 pattern SEP "|" -> CPatOr (loc,p::pl) ] + | "99" RIGHTA [ ] | "10" LEFTA [ p = pattern; lp = LIST1 (pattern LEVEL "0") -> (match p with |