aboutsummaryrefslogtreecommitdiffstats
path: root/lib/syntax_tools/src/erl_syntax.erl
diff options
context:
space:
mode:
authorMagnus Lidén <[email protected]>2014-01-21 16:53:11 +0100
committerMagnus Lidén <[email protected]>2014-01-21 16:53:11 +0100
commitf0aac62ab3d2bc91508cc35f239a8947b2194aea (patch)
tree8bd44781557d814b93f4fe092499754fc6cc1966 /lib/syntax_tools/src/erl_syntax.erl
parent6b3768dae1990f31e2fe2002c39f45f452f2d293 (diff)
parentb33ef8f0d929b0b42f852d153754831429a9bfec (diff)
downloadotp-f0aac62ab3d2bc91508cc35f239a8947b2194aea.tar.gz
otp-f0aac62ab3d2bc91508cc35f239a8947b2194aea.tar.bz2
otp-f0aac62ab3d2bc91508cc35f239a8947b2194aea.zip
Merge branch 'maint'
Diffstat (limited to 'lib/syntax_tools/src/erl_syntax.erl')
-rw-r--r--lib/syntax_tools/src/erl_syntax.erl8
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/syntax_tools/src/erl_syntax.erl b/lib/syntax_tools/src/erl_syntax.erl
index 5911502960..82be9aa489 100644
--- a/lib/syntax_tools/src/erl_syntax.erl
+++ b/lib/syntax_tools/src/erl_syntax.erl
@@ -5493,7 +5493,13 @@ revert_implicit_fun(Node) ->
arity_qualifier ->
F = arity_qualifier_body(Name),
A = arity_qualifier_argument(Name),
- {'fun', Pos, {function, F, A}};
+ case {type(F), type(A)} of
+ {atom, integer} ->
+ {'fun', Pos,
+ {function, concrete(F), concrete(A)}};
+ _ ->
+ Node
+ end;
module_qualifier ->
M = module_qualifier_argument(Name),
Name1 = module_qualifier_body(Name),