diff options
| author | barras | 2005-07-12 14:34:05 +0000 |
|---|---|---|
| committer | barras | 2005-07-12 14:34:05 +0000 |
| commit | f64bad5f41cf5a76abfbb003c9f06eb670b2b126 (patch) | |
| tree | 5ba20326083690b114a88ffaef954308314721ba /kernel | |
| parent | c9e4ab53034ca580429e38f83ca8df48cd40942c (diff) | |
test du tag de reduction
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7208 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/closure.ml | 1 | ||||
| -rw-r--r-- | kernel/closure.mli | 1 |
2 files changed, 2 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) diff --git a/kernel/closure.mli b/kernel/closure.mli index dae1689419..40ec74f53f 100644 --- a/kernel/closure.mli +++ b/kernel/closure.mli @@ -198,5 +198,6 @@ val kl : clos_infos -> fconstr -> constr val to_constr : (lift -> fconstr -> constr) -> lift -> fconstr -> constr val optimise_closure : fconstr subs -> constr -> fconstr subs * constr +val set_norm : fconstr -> unit (* End of cbn debug section i*) |