diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-01-19 12:55:54 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-01-19 12:55:54 +0000 |
commit | 4c3d16960a1a31464c93e20c979577af1459db67 (patch) | |
tree | 1c0184c36e2d5ed2b415fe42c8ad7b41d5958212 /parsing | |
parent | 815ad72c9c47b4ad567358548a6ee6cd5516a11f (diff) |
Réparation bug extensibilité de Constr.pattern
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1257 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
-rw-r--r-- | parsing/g_cases.ml4 | 2 | ||||
-rw-r--r-- | parsing/pcoq.ml4 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/parsing/g_cases.ml4 b/parsing/g_cases.ml4 index 7ed5ea1a5..4cc078a73 100644 --- a/parsing/g_cases.ml4 +++ b/parsing/g_cases.ml4 @@ -7,7 +7,7 @@ open Pcoq open Constr GEXTEND Gram - GLOBAL : constr1 pattern; + GLOBAL: constr1 pattern; pattern: [ [ id = ident -> id diff --git a/parsing/pcoq.ml4 b/parsing/pcoq.ml4 index 5df722f1b..968a4cba4 100644 --- a/parsing/pcoq.ml4 +++ b/parsing/pcoq.ml4 @@ -255,7 +255,7 @@ module Constr = let ne_ident_comma_list = gec_list "ne_ident_comma_list" let ne_constr_list = gec_list "ne_constr_list" let sort = gec "sort" - let pattern = Gram.Entry.create "Constr.pattern" + let pattern = gec "pattern" let ne_binders_list = gec_list "ne_binders_list" let uconstr = snd (get_univ "constr") |