From e4110b17d1b0e6779e0ec4976e4b5f972c45d0e3 Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Mon, 2 Dec 2002 07:53:26 +0000
Subject: On force l'associativité pour les entrées sans niveaux
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3348 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/metasyntax.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'toplevel/metasyntax.ml')

diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml
index 564fc48d8..02148a53e 100644
--- a/toplevel/metasyntax.ml
+++ b/toplevel/metasyntax.ml
@@ -187,7 +187,7 @@ let add_tactic_grammar g =
 let print_grammar univ entry =
   let u = get_univ univ in
   let typ = explicitize_entry (fst u) entry in
-  let te,_ = get_constr_entry typ in
+  let te,_,_ = get_constr_entry typ in
   Gram.Entry.print te
 
 (* Infix, distfix, notations *)
-- 
cgit v1.2.3