diff options
Diffstat (limited to 'kernel/closure.ml')
| -rw-r--r-- | kernel/closure.ml | 1 |
1 files changed, 1 insertions, 0 deletions
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) |