diff options
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), | 
