diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-17 11:08:45 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-17 11:08:45 +0000 |
| commit | 989f3ba5d92082b0ef852f4c37146617479132d0 (patch) | |
| tree | 4dd93a6f5902c9355df0efede4b858af9f670ca0 /parsing/g_constrnew.ml4 | |
| parent | 0679c28226c42aad41af8b68dbbfb7f55aa0ef6a (diff) | |
Inteprétation des idents filtrés liants dans constrintern.ml (plus robuste)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4927 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/g_constrnew.ml4')
| -rw-r--r-- | parsing/g_constrnew.ml4 | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/parsing/g_constrnew.ml4 b/parsing/g_constrnew.ml4 index 3fc3e704e..e07e06b87 100644 --- a/parsing/g_constrnew.ml4 +++ b/parsing/g_constrnew.ml4 @@ -257,10 +257,9 @@ GEXTEND Gram ; case_item: [ [ c=operconstr LEVEL "100"; p=pred_pattern -> - match c,p with - | CRef (Ident (_,id)), (None,indp) -> (c,(Name id,indp)) - | _, (None,indp) -> (c,(Anonymous,indp)) - | _, (Some na,indp) -> (c,(na,indp)) ] ] + match p with + | (None,indp) -> (c,(Anonymous,indp)) + | (Some na,indp) -> (c,(na,indp)) ] ] ; pred_pattern: [ [ ona = OPT ["as"; id=name -> snd id]; |