From 106e80904fae2abc78eee748cdc276806d2e0c1f Mon Sep 17 00:00:00 2001
From: barras
Date: Fri, 30 Jul 2010 16:13:52 +0000
Subject: better fix to bug #2319: types are compiled in the env of the bodies

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

(limited to 'kernel/vm.ml')

diff --git a/kernel/vm.ml b/kernel/vm.ml
index 6f771de8f9..90fb56d86a 100644
--- a/kernel/vm.ml
+++ b/kernel/vm.ml
@@ -470,9 +470,8 @@ let reduce_cofix k vcf =
   let fc_typ = ((Obj.obj (last (Obj.repr vcf))) : tcode array) in
   let ndef = Array.length fc_typ in
   let ftyp =
-    (* skip bodies and evaluate types *)
-    let tenv = Obj.obj (offset_closure (Obj.repr vcf) ndef) in
-    Array.map (fun c -> interprete c crazy_val tenv 0) fc_typ in
+    (* Evaluate types *)
+    Array.map (fun c -> interprete c crazy_val (Obj.magic vcf) 0) fc_typ in
 
   (* Construction of the environment of cofix bodies *)
   let e = Obj.dup (Obj.repr vcf) in
-- 
cgit v1.2.3