diff options
| author | Hans Bolinder <[email protected]> | 2018-09-12 12:31:41 +0200 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2018-09-12 12:31:41 +0200 |
| commit | 9d22c4a02643f883e05d4e245c9724ead3c1ef11 (patch) | |
| tree | 768c8b4bc4cb96cec2d340992375a135570fc266 /lib/syntax_tools | |
| parent | fc49d1ea0b9b14772fef3567f05f96db6996ec63 (diff) | |
| parent | 72a9c61b043dd12b6871248b6b353b333b1bc30b (diff) | |
| download | otp-9d22c4a02643f883e05d4e245c9724ead3c1ef11.tar.gz otp-9d22c4a02643f883e05d4e245c9724ead3c1ef11.tar.bz2 otp-9d22c4a02643f883e05d4e245c9724ead3c1ef11.zip | |
Merge branch 'maint'
* maint:
syntax_tools: Correct unfolding of the stacktrace variable
Diffstat (limited to 'lib/syntax_tools')
| -rw-r--r-- | lib/syntax_tools/src/erl_syntax.erl | 2 | ||||
| -rw-r--r-- | lib/syntax_tools/test/merl_SUITE.erl | 14 |
2 files changed, 13 insertions, 3 deletions
diff --git a/lib/syntax_tools/src/erl_syntax.erl b/lib/syntax_tools/src/erl_syntax.erl index 758aff32fd..331081a07e 100644 --- a/lib/syntax_tools/src/erl_syntax.erl +++ b/lib/syntax_tools/src/erl_syntax.erl @@ -3897,7 +3897,7 @@ unfold_try_clauses(Cs) -> unfold_try_clause({clause, Pos, [{tuple, _, [{atom, _, throw}, V, - [{var, _, '_'}]]}], + {var, _, '_'}]}], Guard, Body}) -> {clause, Pos, [V], Guard, Body}; unfold_try_clause({clause, Pos, [{tuple, _, [C, V, Stacktrace]}], diff --git a/lib/syntax_tools/test/merl_SUITE.erl b/lib/syntax_tools/test/merl_SUITE.erl index 52bbd9b3b8..6389ad7738 100644 --- a/lib/syntax_tools/test/merl_SUITE.erl +++ b/lib/syntax_tools/test/merl_SUITE.erl @@ -30,13 +30,14 @@ %% Test cases -export([merl_smoke_test/1, - transform_parse_error_test/1]). + transform_parse_error_test/1, otp_15291/1]). suite() -> [{ct_hooks,[ts_install_cth]}]. all() -> [merl_smoke_test, - transform_parse_error_test]. + transform_parse_error_test, + otp_15291]. groups() -> []. @@ -101,6 +102,15 @@ transform_parse_error_test(_Config) -> [?Q("merl:qquote(2, \"{\", [{var, V}])")], []))), ok. +otp_15291(_Config) -> + C0 = merl:quote("() -> ok"), + {clause,1,[],[],[{atom,1,ok}]} = C0, + C2 = merl:quote("(_,_) -> ok"), + {clause,1,[{var,1,'_'},{var,1,'_'}],[],[{atom,1,ok}]} = C2, + C1 = merl:quote("(_) -> ok"), + {clause,1,[{var,1,'_'}],[],[{atom,1,ok}]} = C1, + ok. + %% utilities f(Ts) when is_list(Ts) -> |