diff options
| author | Henrik Nord <[email protected]> | 2013-11-29 12:02:34 +0100 |
|---|---|---|
| committer | Henrik Nord <[email protected]> | 2013-11-29 12:02:34 +0100 |
| commit | 3fb3674b90d5d1591311e50fe8baea47e5674f5e (patch) | |
| tree | bbdbab92a5c0f71c990f214c436377e1cd98fa40 /lib/syntax_tools/src/erl_syntax.erl | |
| parent | 0b5ac8b3433ff05728d087b15666457ba27d1f32 (diff) | |
| parent | 40d21f3f803a336b3d3edf338ec71a67ea1f09b1 (diff) | |
| download | otp-3fb3674b90d5d1591311e50fe8baea47e5674f5e.tar.gz otp-3fb3674b90d5d1591311e50fe8baea47e5674f5e.tar.bz2 otp-3fb3674b90d5d1591311e50fe8baea47e5674f5e.zip | |
Merge branch 'maint'
Diffstat (limited to 'lib/syntax_tools/src/erl_syntax.erl')
| -rw-r--r-- | lib/syntax_tools/src/erl_syntax.erl | 19 |
1 files changed, 6 insertions, 13 deletions
diff --git a/lib/syntax_tools/src/erl_syntax.erl b/lib/syntax_tools/src/erl_syntax.erl index bdb2b5bcd7..409805e95f 100644 --- a/lib/syntax_tools/src/erl_syntax.erl +++ b/lib/syntax_tools/src/erl_syntax.erl @@ -5485,22 +5485,15 @@ revert_implicit_fun(Node) -> arity_qualifier -> F = arity_qualifier_body(Name), A = arity_qualifier_argument(Name), - case {type(F), type(A)} of - {atom, integer} -> - {'fun', Pos, - {function, concrete(F), concrete(A)}}; - _ -> - Node - end; + {'fun', Pos, {function, F, A}}; module_qualifier -> M = module_qualifier_argument(Name), Name1 = module_qualifier_body(Name), - F = arity_qualifier_body(Name1), - A = arity_qualifier_argument(Name1), - case {type(M), type(F), type(A)} of - {atom, atom, integer} -> - {'fun', Pos, - {function, concrete(M), concrete(F), concrete(A)}}; + case type(Name1) of + arity_qualifier -> + F = arity_qualifier_body(Name1), + A = arity_qualifier_argument(Name1), + {'fun', Pos, {function, M, F, A}}; _ -> Node end; |