diff options
| author | herbelin | 2002-10-29 06:09:16 +0000 |
|---|---|---|
| committer | herbelin | 2002-10-29 06:09:16 +0000 |
| commit | 9a3babd8029b04d2888ee0983fa07aedbad770b7 (patch) | |
| tree | dc0de1b9867165cd92764e643f1e230484eb4076 | |
| parent | cf78c7adc2f4933e055df9ea4954eee455a70d74 (diff) | |
Parenthèse non obligatoires autour de !id sans argument
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3188 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/g_constr.ml4 | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/parsing/g_constr.ml4 b/parsing/g_constr.ml4 index 55aa143376..dffdbd6c1c 100644 --- a/parsing/g_constr.ml4 +++ b/parsing/g_constr.ml4 @@ -98,6 +98,8 @@ GEXTEND Gram let n = Coqast.Str (loc,n) in <:ast< (NUMERAL $n) >> | "-"; n = INT -> let n = Coqast.Str (loc,n) in <:ast< (NEGNUMERAL $n) >> + | "!"; f = global -> + <:ast< (APPLISTEXPL $f) >> ] ] ; constr1: @@ -194,7 +196,7 @@ GEXTEND Gram <:ast<(IMPLICITBINDINGS $c1 ($LIST $bl))>> ] ] ; constr10: - [ [ "!"; f = global; args = LIST0 constr9 -> + [ [ "!"; f = global; args = LIST1 constr9 -> <:ast< (APPLISTEXPL $f ($LIST $args)) >> | "!"; f = global; "with"; b = binding_list -> <:ast< (APPLISTWITH $f $b) >> |