diff options
| author | herbelin | 2003-08-14 09:45:54 +0000 |
|---|---|---|
| committer | herbelin | 2003-08-14 09:45:54 +0000 |
| commit | 6af4b04b5a925e7cfd8ad56bf0e1fa547600166e (patch) | |
| tree | 7973fb9aa52145a616b275c2e028c9e55a08f54a | |
| parent | 1ff53b683fe97d07a76c0763d659ffb78e0c93c5 (diff) | |
Enregistrement tuple_constr
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4268 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/pcoq.ml4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/parsing/pcoq.ml4 b/parsing/pcoq.ml4 index 476b3abd50..b3cad569f5 100644 --- a/parsing/pcoq.ml4 +++ b/parsing/pcoq.ml4 @@ -354,7 +354,7 @@ module Constr = let annot = Gram.Entry.create "constr:annot" let constr_pattern = gec_constr "constr_pattern" let binder_let = Gram.Entry.create "constr:binder_list" - let tuple_constr = Gram.Entry.create "constr:tuple_constr" + let tuple_constr = gec_constr "tuple_constr" end module Module = @@ -622,7 +622,7 @@ let get_constr_entry en = false | ETConstr(250,()) when not !Options.v7 -> weaken_entry Constr.tuple_constr, -(* snd (get_entry (get_univ "constr") "tuple_construple"),*) +(* snd (get_entry (get_univ "constr") "tuple_constr"),*) None, false | _ -> compute_entry true (fun (n,()) -> Some n) en |