diff options
| author | Magnus Lidén <[email protected]> | 2014-01-21 16:50:22 +0100 |
|---|---|---|
| committer | Magnus Lidén <[email protected]> | 2014-01-21 16:50:22 +0100 |
| commit | b33ef8f0d929b0b42f852d153754831429a9bfec (patch) | |
| tree | ff5ef0c45f550e7ca5b1e5a19d2843b25ad3ea20 /lib/syntax_tools/src/erl_syntax.erl | |
| parent | 7042cc483b7e48eeacc99a47676e8593f288285b (diff) | |
| parent | f5a460fc93ee006cb0f76b7ace224a1300976c33 (diff) | |
| download | otp-b33ef8f0d929b0b42f852d153754831429a9bfec.tar.gz otp-b33ef8f0d929b0b42f852d153754831429a9bfec.tar.bz2 otp-b33ef8f0d929b0b42f852d153754831429a9bfec.zip | |
Merge branch 'nox/fix-OTP-11506' into maint
* nox/fix-OTP-11506:
Smoke test erl_syntax:revert/1
Fix reverting of local implicit funs in erl_syntax
Diffstat (limited to 'lib/syntax_tools/src/erl_syntax.erl')
| -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 409805e95f..775b2cc109 100644 --- a/lib/syntax_tools/src/erl_syntax.erl +++ b/lib/syntax_tools/src/erl_syntax.erl @@ -5485,7 +5485,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), |