From 1e6c3e993fd33d01713aae34a8cefbc210b3898a Mon Sep 17 00:00:00 2001
From: barras
Date: Fri, 15 Feb 2002 18:02:05 +0000
Subject: petits changements cosmetiques sur les tactiques + Clear independant
 de l'ordre des hypotheses, et substituant les hypotheses definies

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

(limited to 'kernel/inductive.ml')

diff --git a/kernel/inductive.ml b/kernel/inductive.ml
index d98adbb37f..16ff717e90 100644
--- a/kernel/inductive.ml
+++ b/kernel/inductive.ml
@@ -572,7 +572,7 @@ let check_one_fix renv recpos def =
       | Const sp as c -> 
           (try List.for_all (check_rec_call renv) l
            with (FixGuardError _ ) as e ->
-             if evaluable_constant renv.env sp then 
+             if evaluable_constant sp renv.env then 
 	       check_rec_call renv
                  (applist(constant_value renv.env sp, l))
 	     else raise e)
-- 
cgit v1.2.3