From 67fe536720c5ef5bb509249b9a30cbc6f2cebd92 Mon Sep 17 00:00:00 2001
From: bertot
Date: Thu, 26 Feb 2004 13:35:24 +0000
Subject: Keep structure information for Fixpoint declaration and Fix terms

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

(limited to 'parsing/ppconstr.ml')

diff --git a/parsing/ppconstr.ml b/parsing/ppconstr.ml
index cdc7cc6f76..77853c5e1a 100644
--- a/parsing/ppconstr.ml
+++ b/parsing/ppconstr.ml
@@ -155,7 +155,7 @@ let rec split_fix n typ def =
     let (bl,typ,def) = split_fix (n-1) typ def in
     (concat_binder na t bl,typ,def)
 
-let pr_fixdecl pr (id,n,t,c) =
+let pr_fixdecl pr (id,n,_,t,c) =
   let (bl,t,c) = split_fix (n+1) t c in
   pr_recursive_decl pr id 
     (brk (1,2) ++ str "[" ++ pr_binders pr bl ++ str "]") t c
-- 
cgit v1.2.3