diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-06-16 13:09:43 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-06-16 13:09:43 +0000 |
| commit | 570668efcd61800a5de13d33ab4f2fefc78cc62c (patch) | |
| tree | 84bddba07436e258a7d87bdbf643b6f3288b9210 /plugins/extraction/mlutil.ml | |
| parent | 412e75cda30682cf066974f7c80cb135b71ba90d (diff) | |
Extraction: fix the eta reduction function used in code optimisations
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13158 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/extraction/mlutil.ml')
| -rw-r--r-- | plugins/extraction/mlutil.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/extraction/mlutil.ml b/plugins/extraction/mlutil.ml index 034baad95..ed4b17dda 100644 --- a/plugins/extraction/mlutil.ml +++ b/plugins/extraction/mlutil.ml @@ -601,7 +601,7 @@ let eta_red e = if m = n then [], f, a else if m < n then - snd (list_chop (n-m) ids), f, a + list_skipn m ids, f, a else (* m > n *) let a1,a2 = list_chop (m-n) a in [], MLapp (f,a1), a2 |