From d96e3b9a191247a03def5e932cacb18f0a3081f2 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 29 Nov 2002 10:33:44 +0000
Subject: constr9 et lconstr NONA pour une meilleur extensibilité

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3340 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/g_constr.ml4 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/parsing/g_constr.ml4 b/parsing/g_constr.ml4
index 01b770288a..a32190b6d6 100644
--- a/parsing/g_constr.ml4
+++ b/parsing/g_constr.ml4
@@ -181,7 +181,7 @@ GEXTEND Gram
           CDelimiters (loc,key,c) ] ]
   ;
   lconstr:
-    [ "10"
+    [ "10" NONA
       [ "!"; f = global; args = LIST0 constr9 -> CAppExpl (loc, f, args)
 (*
       | "!"; f = global; "with"; b = binding_list ->
@@ -196,7 +196,7 @@ GEXTEND Gram
       | c = constr9 -> (c, None) ] ]
   ;
   constr9:
-    [ [ c1 = constr -> c1
+    [ NONA [ c1 = constr -> c1
       | c1 = constr; "::"; c2 = constr -> CCast (loc, c1, c2) ] ]
   ;
   ne_name_comma_list:
-- 
cgit v1.2.3