From ff45afa83a9235cbe33af525b6b0c7985dc7e091 Mon Sep 17 00:00:00 2001
From: barras
Date: Tue, 2 Dec 2008 10:38:29 +0000
Subject: fixed kernel bug (de Bruijn) + test-suite

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

(limited to 'kernel')

diff --git a/kernel/inductive.ml b/kernel/inductive.ml
index 918a32c956..8024ae266c 100644
--- a/kernel/inductive.ml
+++ b/kernel/inductive.ml
@@ -683,7 +683,8 @@ let check_one_fix renv recpos def =
                     List.iter (check_rec_call renv) l
                 | Some c ->
                     try List.iter (check_rec_call renv) l
-                    with FixGuardError _ -> check_rec_call renv (applist(c,l))
+                    with FixGuardError _ ->
+                      check_rec_call renv (applist(lift p c,l))
               end
 
         | Case (ci,p,c_0,lrest) ->
-- 
cgit v1.2.3