diff options
| author | Fredrik Gustafsson <[email protected]> | 2012-08-29 09:25:33 +0200 |
|---|---|---|
| committer | Fredrik Gustafsson <[email protected]> | 2012-08-29 09:25:33 +0200 |
| commit | e8687711820561ed1c069ae7c66c2c3efd3b477b (patch) | |
| tree | f1a21a98967932be84e03216a4709b7c0704a6af /lib/syntax_tools/src/erl_syntax.erl | |
| parent | 8fcbcbb97e4cff45f90cf1a10a3e9dca99f76f47 (diff) | |
| download | otp-e8687711820561ed1c069ae7c66c2c3efd3b477b.tar.gz otp-e8687711820561ed1c069ae7c66c2c3efd3b477b.tar.bz2 otp-e8687711820561ed1c069ae7c66c2c3efd3b477b.zip | |
Used previous resolution
Diffstat (limited to 'lib/syntax_tools/src/erl_syntax.erl')
| -rw-r--r-- | lib/syntax_tools/src/erl_syntax.erl | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/lib/syntax_tools/src/erl_syntax.erl b/lib/syntax_tools/src/erl_syntax.erl index 76a6a6dc36..151f04b03b 100644 --- a/lib/syntax_tools/src/erl_syntax.erl +++ b/lib/syntax_tools/src/erl_syntax.erl @@ -5979,13 +5979,9 @@ is_literal(T) -> revert(Node) -> case is_tree(Node) of false -> - %% Just remove any wrapper and copy the position. `erl_parse' - %% nodes never contain abstract syntax tree nodes as subtrees. - case unwrap(Node) of - {error, Info} -> {error, setelement(1,Info,get_pos(Node))}; - {warning, Info} -> {warning, setelement(1,Info,get_pos(Node))}; - Node1 -> setelement(2,Node1,get_pos(Node)) - end; + %% Just remove any wrapper. `erl_parse' nodes never contain + %% abstract syntax tree nodes as subtrees. + unwrap(Node); true -> case is_leaf(Node) of true -> |