From ca4aacadcb3df85db7847ec8f721f5feffde9d4d Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 11 Oct 2000 20:14:39 +0000
Subject: Idem pour défs locales dans Var

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

(limited to 'kernel')

diff --git a/kernel/reduction.ml b/kernel/reduction.ml
index ceae6e8ddb..bfb3a565fd 100644
--- a/kernel/reduction.ml
+++ b/kernel/reduction.ml
@@ -276,11 +276,11 @@ let whd_state_gen flags env sigma =
 	  (match lookup_rel_value n env with
 	     | Some body -> whrec (lift n body, stack)
 	     | None -> s)
-*)
       | IsVar id when red_delta flags ->
 	  (match lookup_var_value id env with
 	     | Some body -> whrec (body, stack)
 	     | None -> s)
+*)
       | IsEvar ev when red_evar flags ->
 	  (match existential_opt_value sigma ev with
 	     | Some body -> whrec (body, stack)
-- 
cgit v1.2.3