- 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

1 files changed, 1 insertions, 2 deletions

diff --git a/kernel/byterun/coq_values.c b/kernel/byterun/coq_values.c
index baf3ab090..34b885e8f 100644
--- a/kernel/byterun/coq_values.c
+++ b/kernel/byterun/coq_values.c
@@ -27,8 +27,7 @@ value coq_kind_of_closure(value v) {
   if (Is_instruction(c, GRAB)) return Val_int(0);
   if (Is_instruction(c, RESTART)) {is_app = 1; c++;}
   if (Is_instruction(c, GRABREC)) return Val_int(1+is_app);
-  if (Is_instruction(c, COGRAB)) return Val_int(3+is_app);
-  if (Is_instruction(c, MAKEACCU)) return Val_int(5);
+  if (Is_instruction(c, MAKEACCU)) return Val_int(3);
   return Val_int(0);
 }