File 4451-beam_ssa_bsm-Use-list-comprehensions-instead-of-list.patch of Package erlang

From e582507ab61703c428f878d9a7b202bca60a9c40 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20H=C3=B6gberg?= <john@erlang.org>
Date: Thu, 19 Mar 2020 15:05:18 +0100
Subject: [PATCH 1/2] beam_ssa_bsm: Use list comprehensions instead of
 lists:map/2

---
 lib/compiler/src/beam_ssa_bsm.erl | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/lib/compiler/src/beam_ssa_bsm.erl b/lib/compiler/src/beam_ssa_bsm.erl
index df916f8a9e..d56372e53f 100644
--- a/lib/compiler/src/beam_ssa_bsm.erl
+++ b/lib/compiler/src/beam_ssa_bsm.erl
@@ -59,7 +59,7 @@
 
 -include("beam_ssa.hrl").
 
--import(lists, [member/2, reverse/1, reverse/2, splitwith/2, map/2, foldl/3,
+-import(lists, [member/2, reverse/1, reverse/2, splitwith/2, foldl/3,
                 mapfoldl/3, nth/2, max/1, unzip/1]).
 
 -spec format_error(term()) -> nonempty_string().
@@ -441,7 +441,7 @@ is_var_in_args(_Var, []) -> false.
               renames = #{} :: beam_ssa:rename_map() }).
 
 combine_matches({Fs0, ModInfo}) ->
-    Fs = map(fun(F) -> combine_matches(F, ModInfo) end, Fs0),
+    Fs = [combine_matches(F, ModInfo) || F <- Fs0],
     {Fs, ModInfo}.
 
 combine_matches(#b_function{bs=Blocks0,cnt=Counter0}=F, ModInfo) ->
@@ -789,9 +789,8 @@ aca_cs_arg(Arg, VRs) ->
 %% contexts to us.
 
 allow_context_passthrough({Fs, ModInfo0}) ->
-    ModInfo =
-        acp_forward_params([{F, beam_ssa:uses(F#b_function.bs)} || F <- Fs],
-                           ModInfo0),
+    FsUses = [{F, beam_ssa:uses(F#b_function.bs)} || F <- Fs],
+    ModInfo = acp_forward_params(FsUses, ModInfo0),
     {Fs, ModInfo}.
 
 acp_forward_params(FsUses, ModInfo0) ->
@@ -840,7 +839,7 @@ acp_1(_Param, _Uses, _ModInfo, ParamInfo) ->
                 match_aliases = #{} :: match_alias_map() }).
 
 skip_outgoing_tail_extraction({Fs0, ModInfo}) ->
-    Fs = map(fun(F) -> skip_outgoing_tail_extraction(F, ModInfo) end, Fs0),
+    Fs = [skip_outgoing_tail_extraction(F, ModInfo) || F <- Fs0],
     {Fs, ModInfo}.
 
 skip_outgoing_tail_extraction(#b_function{bs=Blocks0}=F, ModInfo) ->
-- 
2.16.4