diff options
| author | Björn Gustavsson <[email protected]> | 2016-04-20 05:20:25 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2016-04-21 12:41:04 +0200 |
| commit | 5a7029ac5afc2a6a55241a2e01d0174741ab4a1c (patch) | |
| tree | 8c681542907f2f3a03493c99fb7a71d3e91d2464 | |
| parent | ee08efadd1fd5eb0e1f3f13c19d56f0ab0883611 (diff) | |
| download | otp-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.yrl | 4 |
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']. |