aboutsummaryrefslogtreecommitdiffstats
path: root/lib/stdlib/src/erl_parse.yrl
diff options
context:
space:
mode:
authorBjörn-Egil Dahlberg <[email protected]>2014-09-30 14:42:37 +0200
committerBjörn-Egil Dahlberg <[email protected]>2014-09-30 14:42:37 +0200
commit588df549e708b68ffb2b1becb5efecd20a7e6224 (patch)
tree4774adff08ce2a7a9edeead0adb08402abd7bc20 /lib/stdlib/src/erl_parse.yrl
parent4703b64dc87465e0d505b9997ca5e91f5cb12002 (diff)
downloadotp-588df549e708b68ffb2b1becb5efecd20a7e6224.tar.gz
otp-588df549e708b68ffb2b1becb5efecd20a7e6224.tar.bz2
otp-588df549e708b68ffb2b1becb5efecd20a7e6224.zip
stdlib: Refactor Maps farity attributes
Diffstat (limited to 'lib/stdlib/src/erl_parse.yrl')
-rw-r--r--lib/stdlib/src/erl_parse.yrl8
1 files 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().