From fff07f8260867740f1f8d8b09bd26baa5f99e5c6 Mon Sep 17 00:00:00 2001
From: bgregoir
Date: Sat, 22 Jul 2006 17:42:45 +0000
Subject: - Ajout d'un cast vm dans la syntaxe :  x <: t     Part contre ces
 cas sont detruis dans les "Definition"     (pas dans les "Lemma") je
 comprends pas ou ils sont enlev'e...     Si une id'ee ...

- Correction d'un bug dans vm_compute plusieurs fois signal'e par Roland.

- Meilleur compilation des coinductifs, on utilise maintenant vraimment
  du lazy. 

- Enfin un peu plus de doc dans le code de la vm.

  Benjamin



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

(limited to 'proofs/redexpr.ml')

diff --git a/proofs/redexpr.ml b/proofs/redexpr.ml
index 6f49ee7353..c69d1be364 100644
--- a/proofs/redexpr.ml
+++ b/proofs/redexpr.ml
@@ -24,7 +24,7 @@ open RedFlags
 (* call by value normalisation function using the virtual machine *)
 let cbv_vm env _ c =
   let ctyp = (fst (Typeops.infer env c)).Environ.uj_type in
-  Vconv.cbv_vm env c ctyp
+  Vnorm.cbv_vm env c ctyp
 
 
 let set_opaque_const sp = 
-- 
cgit v1.2.3