From 48bd85fdfc0648facfc76078f8556a00b4f6febb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn-Egil=20Dahlberg?= <egil@erlang.org>
Date: Mon, 18 May 2015 10:29:59 +0200
Subject: stdlib: Use lc to implement maps:map/2

---
 lib/stdlib/src/maps.erl | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'lib/stdlib/src')

diff --git a/lib/stdlib/src/maps.erl b/lib/stdlib/src/maps.erl
index 2913a2ff86..533ff08726 100644
--- a/lib/stdlib/src/maps.erl
+++ b/lib/stdlib/src/maps.erl
@@ -183,10 +183,7 @@ fold(Fun,Init,Map) ->
     V2 :: term().
 
 map(Fun,Map) when is_function(Fun, 2), is_map(Map) ->
-    maps:from_list(lists:map(fun
-		({K,V}) ->
-		    {K,Fun(K,V)}
-	    end,maps:to_list(Map)));
+    maps:from_list([{K,Fun(K,V)}||{K,V}<-maps:to_list(Map)]);
 map(Fun,Map) ->
     erlang:error(error_type(Map),[Fun,Map]).
 
-- 
cgit v1.2.3