From 6af4b04b5a925e7cfd8ad56bf0e1fa547600166e Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 14 Aug 2003 09:45:54 +0000
Subject: Enregistrement tuple_constr

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4268 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/pcoq.ml4 | 4 ++--
 1 file 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
-- 
cgit v1.2.3