aboutsummaryrefslogtreecommitdiffstats
path: root/lib/tools/src
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2011-10-27 10:20:21 +0200
committerBjörn Gustavsson <[email protected]>2011-11-29 14:08:40 +0100
commit7c9e0e4b16019a1606df57919bda3b568afe4cef (patch)
tree0f58b96712ae50f09d70db1ebb3ee12c979902c1 /lib/tools/src
parente90602c2e3b0c1303b4c32aa35bac14ea36fe124 (diff)
downloadotp-7c9e0e4b16019a1606df57919bda3b568afe4cef.tar.gz
otp-7c9e0e4b16019a1606df57919bda3b568afe4cef.tar.bz2
otp-7c9e0e4b16019a1606df57919bda3b568afe4cef.zip
xref_compiler: Eliminate use of tuple fun
Diffstat (limited to 'lib/tools/src')
-rw-r--r--lib/tools/src/xref_compiler.erl7
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/tools/src/xref_compiler.erl b/lib/tools/src/xref_compiler.erl
index 1445e135be..e6f492c62b 100644
--- a/lib/tools/src/xref_compiler.erl
+++ b/lib/tools/src/xref_compiler.erl
@@ -736,8 +736,11 @@ find_nodes(Tuple, I, T) when is_tuple(Tuple) ->
end,
{NL, NI, T1} = foldl(Fun, {[], I, T}, L),
Tag = case Tag0 of
- _ when is_function(Tag0) -> Tag0;
- _ when is_atom(Tag0) -> {sofs, Tag0}
+ _ when is_function(Tag0) ->
+ Tag0;
+ _ when is_atom(Tag0) ->
+ Arity = length(NL),
+ fun sofs:Tag0/Arity
end,
find_node({apply, Tag, NL}, NI, T1).