From f64bad5f41cf5a76abfbb003c9f06eb670b2b126 Mon Sep 17 00:00:00 2001
From: barras
Date: Tue, 12 Jul 2005 14:34:05 +0000
Subject: test du tag de reduction

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

(limited to 'kernel/closure.ml')

diff --git a/kernel/closure.ml b/kernel/closure.ml
index 2f83657d06..9725e779cc 100644
--- a/kernel/closure.ml
+++ b/kernel/closure.ml
@@ -968,6 +968,7 @@ let contract_fix_vect fix =
    constructor, cofix, letin, constant), or a neutral term (product,
    inductive) *)
 let rec knh m stk =
+  if is_val m then (incr prune; (m,stk)) else
   match m.term with
     | FLIFT(k,a) -> knh a (zshift k stk)
     | FCLOS(t,e) -> knht e t (zupdate m stk)
-- 
cgit v1.2.3