diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-23 15:26:10 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-23 15:26:10 +0000 |
| commit | 1c71ab379c8f860b405a808249d02441bbc66737 (patch) | |
| tree | 678de713078ccda43d7c7af859b37b3af0c6e727 | |
| parent | a3837fa9dd60b7b8528e2e31c98682528c694dcd (diff) | |
forme code
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1673 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/extraction/mlutil.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/contrib/extraction/mlutil.ml b/contrib/extraction/mlutil.ml index 6b0213c67..792952ac3 100644 --- a/contrib/extraction/mlutil.ml +++ b/contrib/extraction/mlutil.ml @@ -180,8 +180,9 @@ let rec betaiota = function (match nb_occur t with | 0 -> betaiota (MLapp (ml_pop t, List.tl a')) | 1 -> betaiota (MLapp (ml_subst (List.hd a') t, List.tl a')) - | _ -> betaiota (MLletin (id, List.hd a', - MLapp (t, List.map (ml_lift 1) (List.tl a'))))) + | _ -> + let a'' = List.map (ml_lift 1) (List.tl a') in + betaiota (MLletin (id, List.hd a', MLapp (t, a'')))) (* application of a let in: we push arguments inside *) | MLletin (id,e1,e2) -> MLletin (id, e1, betaiota (MLapp (e2, List.map (ml_lift 1) a'))) |