diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-07-13 16:23:42 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-07-13 16:23:42 +0000 |
| commit | 31237e72bcec43836d5be597649c973f06731250 (patch) | |
| tree | 6db25793f8217e0e8d10425efb4e996927eed706 /kernel/closure.ml | |
| parent | 3164fb89c2fc3076261bddf5b364667e55c11976 (diff) | |
reactivation de l optim des fermetures
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7216 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/closure.ml')
| -rw-r--r-- | kernel/closure.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/closure.ml b/kernel/closure.ml index 2f83657d0..e588ca618 100644 --- a/kernel/closure.ml +++ b/kernel/closure.ml @@ -657,7 +657,7 @@ let optimise_closure env c = (env',c') let mk_lambda env t = -(* let (env,t) = optimise_closure env t in*) + let (env,t) = optimise_closure env t in let (rvars,t') = decompose_lam t in FLambda(List.length rvars, List.rev rvars, t', env) |