diff options
| author | barras | 2001-03-23 15:04:09 +0000 |
|---|---|---|
| committer | barras | 2001-03-23 15:04:09 +0000 |
| commit | fae106f740d3d71555933cf416eec905c58f417e (patch) | |
| tree | 12cfd6fa08b20e9f076c113a1a668388c5cf5527 /kernel/closure.ml | |
| parent | fab1cc89b9ff65938cff3b4e41e51ad3b0bc68db (diff) | |
amelioration de la consommation memoire de la conversion en eta-expansant
les definitions.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1483 85f007b7-540e-0410-9357-904b9bb8a0f7
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 541cd7d599..e1469ba488 100644 --- a/kernel/closure.ml +++ b/kernel/closure.ml @@ -958,6 +958,7 @@ let rec strip_applstack k acc m = let fhnf info v = strip_applstack 0 [] (kh info v []) + let fhnf_apply info k head appl = let stk = zshift k appl in strip_applstack 0 [] (kh info head stk) |