diff options
| author | barras | 2005-07-13 16:22:56 +0000 |
|---|---|---|
| committer | barras | 2005-07-13 16:22:56 +0000 |
| commit | 3164fb89c2fc3076261bddf5b364667e55c11976 (patch) | |
| tree | 1285332a11a83de243721899dbbf36e7ed221377 /kernel/closure.ml | |
| parent | 055a8ba614e55c7f799620583885b390d6d34b15 (diff) | |
backtrack modif de knh...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7215 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/closure.ml')
| -rw-r--r-- | kernel/closure.ml | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/kernel/closure.ml b/kernel/closure.ml index 9725e779cc..2f83657d06 100644 --- a/kernel/closure.ml +++ b/kernel/closure.ml @@ -968,7 +968,6 @@ 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) |