diff options
| author | Magnus Lidén <[email protected]> | 2014-01-21 16:53:11 +0100 |
|---|---|---|
| committer | Magnus Lidén <[email protected]> | 2014-01-21 16:53:11 +0100 |
| commit | f0aac62ab3d2bc91508cc35f239a8947b2194aea (patch) | |
| tree | 8bd44781557d814b93f4fe092499754fc6cc1966 /lib/syntax_tools/src | |
| parent | 6b3768dae1990f31e2fe2002c39f45f452f2d293 (diff) | |
| parent | b33ef8f0d929b0b42f852d153754831429a9bfec (diff) | |
| download | otp-f0aac62ab3d2bc91508cc35f239a8947b2194aea.tar.gz otp-f0aac62ab3d2bc91508cc35f239a8947b2194aea.tar.bz2 otp-f0aac62ab3d2bc91508cc35f239a8947b2194aea.zip | |
Merge branch 'maint'
Diffstat (limited to 'lib/syntax_tools/src')
| -rw-r--r-- | lib/syntax_tools/src/erl_syntax.erl | 8 |
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), |