diff options
author | Henrik Nord <[email protected]> | 2013-11-29 12:02:14 +0100 |
---|---|---|
committer | Henrik Nord <[email protected]> | 2013-11-29 12:02:17 +0100 |
commit | 40d21f3f803a336b3d3edf338ec71a67ea1f09b1 (patch) | |
tree | c8de81d36bb31932be80880a02af34ce7dfbf9b6 /lib/syntax_tools/src/erl_syntax.erl | |
parent | b1309987eb47a009d2bfaa8f81e2f600090500a4 (diff) | |
parent | c37d6d74c6bf9064ffbd488b77b424ff25c6bbc0 (diff) | |
download | otp-40d21f3f803a336b3d3edf338ec71a67ea1f09b1.tar.gz otp-40d21f3f803a336b3d3edf338ec71a67ea1f09b1.tar.bz2 otp-40d21f3f803a336b3d3edf338ec71a67ea1f09b1.zip |
Merge branch 'nox/igor-funs' into maint
* nox/igor-funs:
Remove a useless function clause in erl_syntax_lib
Fix transformation of implicit funs in igor
Fix reverting of implicit funs
OTP-11506
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; |