aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2016-04-20 05:20:25 +0200
committerBjörn Gustavsson <[email protected]>2016-04-21 12:41:04 +0200
commit5a7029ac5afc2a6a55241a2e01d0174741ab4a1c (patch)
tree8c681542907f2f3a03493c99fb7a71d3e91d2464
parentee08efadd1fd5eb0e1f3f13c19d56f0ab0883611 (diff)
downloadotp-5a7029ac5afc2a6a55241a2e01d0174741ab4a1c.tar.gz
otp-5a7029ac5afc2a6a55241a2e01d0174741ab4a1c.tar.bz2
otp-5a7029ac5afc2a6a55241a2e01d0174741ab4a1c.zip
core_parse: Don't sort map patterns
If we pretty print to a file and read it back in, we expect to get the same cerl data structures back.
-rw-r--r--lib/compiler/src/core_parse.yrl4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/compiler/src/core_parse.yrl b/lib/compiler/src/core_parse.yrl
index e01f826eef..8028aa99bb 100644
--- a/lib/compiler/src/core_parse.yrl
+++ b/lib/compiler/src/core_parse.yrl
@@ -196,9 +196,9 @@ tuple_pattern -> '{' anno_patterns '}' : c_tuple('$2').
map_pattern -> '~' '{' '}' '~' : c_map_pattern([]).
map_pattern -> '~' '{' map_pair_patterns '}' '~' :
- c_map_pattern(lists:sort('$3')).
+ c_map_pattern('$3').
map_pattern -> '~' '{' map_pair_patterns '|' anno_map_expr '}' '~' :
- ann_c_map_pattern('$5', lists:sort('$3')).
+ ann_c_map_pattern('$5', '$3').
map_pair_patterns -> map_pair_pattern : ['$1'].
map_pair_patterns -> map_pair_pattern ',' map_pair_patterns : ['$1' | '$3'].