diff options
| author | barras | 2010-07-30 16:13:52 +0000 |
|---|---|---|
| committer | barras | 2010-07-30 16:13:52 +0000 |
| commit | 106e80904fae2abc78eee748cdc276806d2e0c1f (patch) | |
| tree | 8ba681272b4e5639a6eafb030a54ba0a734ac023 /kernel/vm.ml | |
| parent | 9b63e19d1dc300a0f807a8ef27e4849ef15b4485 (diff) | |
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
Diffstat (limited to 'kernel/vm.ml')
| -rw-r--r-- | kernel/vm.ml | 5 |
1 files changed, 2 insertions, 3 deletions
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 |