From 9c76a53b91f7df2fcb05adaa87cdace7ef1d2fbb Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 20 Mar 2000 09:18:29 +0000
Subject: Bug ordre des inductifs mutuels

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@329 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/safe_typing.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml
index be489e047a..ea6ce77aaa 100644
--- a/kernel/safe_typing.ml
+++ b/kernel/safe_typing.ml
@@ -417,14 +417,14 @@ let add_mind sp mie env =
   let env_arities = push_rels types_sign env in
   let env_params = push_rels params env_arities in
   let _,inds,cst =
-    List.fold_left 
-      (fun (i,inds,cst) ind -> 
+    List.fold_right
+      (fun ind (i,inds,cst) -> 
 	 let (ind',cst') = 
 	   type_one_inductive i env_arities env_params nparams ninds ind 
 	 in
 	 (succ i,ind'::inds, Constraint.union cst cst'))
-      (1,[],Constraint.empty) 
       mie.mind_entry_inds
+      (1,[],Constraint.empty) 
   in
   let kind = kind_of_path sp in
   let mib = 
-- 
cgit v1.2.3