diff options
| author | Björn Gustavsson <[email protected]> | 2011-10-27 10:20:21 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2011-11-29 14:08:40 +0100 |
| commit | 7c9e0e4b16019a1606df57919bda3b568afe4cef (patch) | |
| tree | 0f58b96712ae50f09d70db1ebb3ee12c979902c1 | |
| parent | e90602c2e3b0c1303b4c32aa35bac14ea36fe124 (diff) | |
| download | otp-7c9e0e4b16019a1606df57919bda3b568afe4cef.tar.gz otp-7c9e0e4b16019a1606df57919bda3b568afe4cef.tar.bz2 otp-7c9e0e4b16019a1606df57919bda3b568afe4cef.zip | |
xref_compiler: Eliminate use of tuple fun
| -rw-r--r-- | lib/tools/src/xref_compiler.erl | 7 |
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). |