diff options
| author | Björn Gustavsson <[email protected]> | 2017-11-21 14:39:58 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2017-11-30 12:46:51 +0100 |
| commit | 9dce8fe582cecb586375dafff4b84c11a1b3ac7e (patch) | |
| tree | 016bf31a8d5fad34fc1c4251bf6dc735acdb2b70 /lib/syntax_tools/src/erl_prettypr.erl | |
| parent | 01f96ee6197a7b5a2c64353a3b38260994ce5ad5 (diff) | |
| download | otp-9dce8fe582cecb586375dafff4b84c11a1b3ac7e.tar.gz otp-9dce8fe582cecb586375dafff4b84c11a1b3ac7e.tar.bz2 otp-9dce8fe582cecb586375dafff4b84c11a1b3ac7e.zip | |
Update syntax_tools to support the stacktrace variable
Diffstat (limited to 'lib/syntax_tools/src/erl_prettypr.erl')
| -rw-r--r-- | lib/syntax_tools/src/erl_prettypr.erl | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/lib/syntax_tools/src/erl_prettypr.erl b/lib/syntax_tools/src/erl_prettypr.erl index 40ddd2b22a..f03f326278 100644 --- a/lib/syntax_tools/src/erl_prettypr.erl +++ b/lib/syntax_tools/src/erl_prettypr.erl @@ -774,9 +774,17 @@ lay_2(Node, Ctxt) -> class_qualifier -> Ctxt1 = set_prec(Ctxt, max_prec()), D1 = lay(erl_syntax:class_qualifier_argument(Node), Ctxt1), - D2 = lay(erl_syntax:class_qualifier_body(Node), Ctxt1), - beside(D1, beside(text(":"), D2)); - + D2 = lay(erl_syntax:class_qualifier_body(Node), Ctxt1), + Stacktrace = erl_syntax:class_qualifier_stacktrace(Node), + case erl_syntax:variable_name(Stacktrace) of + '_' -> + beside(D1, beside(text(":"), D2)); + _ -> + D3 = lay(erl_syntax:class_qualifier_stacktrace(Node), + Ctxt1), + beside(D1, beside(beside(text(":"), D2), + beside(text(":"), D3))) + end; comment -> D = stack_comment_lines( erl_syntax:comment_text(Node)), |