diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2014-09-30 14:42:37 +0200 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2014-09-30 14:42:37 +0200 |
| commit | 588df549e708b68ffb2b1becb5efecd20a7e6224 (patch) | |
| tree | 4774adff08ce2a7a9edeead0adb08402abd7bc20 /lib/stdlib/src/erl_parse.yrl | |
| parent | 4703b64dc87465e0d505b9997ca5e91f5cb12002 (diff) | |
| download | otp-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.yrl | 8 |
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(). |