From 909d7c9edd05868d1fba2dae65e6ff775a41dcbe Mon Sep 17 00:00:00 2001
From: barras
Date: Thu, 14 Feb 2002 15:54:01 +0000
Subject: - Reforme de la gestion des args recursifs (via arbres reguliers) -
 coqtop -byte -opt bouclait!

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

(limited to 'toplevel/command.ml')

diff --git a/toplevel/command.ml b/toplevel/command.ml
index 4a517144ec..e34d6b9199 100644
--- a/toplevel/command.ml
+++ b/toplevel/command.ml
@@ -204,8 +204,7 @@ let interp_mutual lparams lnamearconstrs finite =
 	   List.map 
 	     (interp_type_with_implicits sigma ind_env_params ind_impls) bodies
 	 in
-	 { mind_entry_nparams = nparams;
-	   mind_entry_params = params';
+	 { mind_entry_params = params';
 	   mind_entry_typename = name;
 	   mind_entry_arity = ar;
 	   mind_entry_consnames = constrnames;
-- 
cgit v1.2.3