From 9a3babd8029b04d2888ee0983fa07aedbad770b7 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 29 Oct 2002 06:09:16 +0000
Subject: 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
---
 parsing/g_constr.ml4 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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) >>
-- 
cgit v1.2.3