From 588df549e708b68ffb2b1becb5efecd20a7e6224 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn-Egil=20Dahlberg?= Date: Tue, 30 Sep 2014 14:42:37 +0200 Subject: stdlib: Refactor Maps farity attributes --- lib/stdlib/src/erl_parse.yrl | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/lib/stdlib/src/erl_parse.yrl b/lib/stdlib/src/erl_parse.yrl index 039cc88b9c..1d70b1286f 100644 --- a/lib/stdlib/src/erl_parse.yrl +++ b/lib/stdlib/src/erl_parse.yrl @@ -763,13 +763,9 @@ attribute_farity(Other) -> Other. attribute_farity_list(Args) -> [attribute_farity(A) || A <- Args]. +%% It is not meaningful to have farity keys. attribute_farity_map(Args) -> - [attribute_farity_map_field(A) || A <- Args]. - -attribute_farity_map_field({map_field_assoc,L,K,V}) -> - {map_field_assoc,L,attribute_farity(K),attribute_farity(V)}; -attribute_farity_map_field({map_field_exact,L,K,V}) -> - {map_field_exact,L,attribute_farity(K),attribute_farity(V)}. + [{Op,L,K,attribute_farity(V)} || {Op,L,K,V} <- Args]. -spec error_bad_decl(integer(), attributes()) -> no_return(). -- cgit v1.2.3