map2 de gauche a droite

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@457 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
1995-11-19 16:54:24 +00:00 · 1995-11-19 16:54:24 +00:00 · b904cf7ae9
parent cf1616269a
commit b904cf7ae9
1 changed files with 1 additions and 1 deletions
--- a/stdlib/list.ml
+++ b/stdlib/list.ml
@ -62,7 +62,7 @@ let rec fold_right f l accu =
 let rec map2 f l1 l2 =
  match (l1, l2) with
    ([], []) -> []
-  | (a1::l1, a2::l2) -> f a1 a2 :: map2 f l1 l2
+  | (a1::l1, a2::l2) -> let r = f a1 a2 in r :: map2 f l1 l2
  | (_, _) -> invalid_arg "List.map2"

 let rec iter2 f l1 l2 =