aboutsummaryrefslogtreecommitdiffstats
path: root/lib/syntax_tools
diff options
context:
space:
mode:
authorBjörn-Egil Dahlberg <[email protected]>2012-01-03 21:03:44 +0100
committerBjörn-Egil Dahlberg <[email protected]>2012-01-03 21:03:44 +0100
commit38ee7a20cfdc22ead35b4711a086babcf6b3069b (patch)
tree752fc1da81ceca8f6ed59e91265f748731dc93f2 /lib/syntax_tools
parentfa809bb66a466c435edcdb704e40408fecad3683 (diff)
downloadotp-38ee7a20cfdc22ead35b4711a086babcf6b3069b.tar.gz
otp-38ee7a20cfdc22ead35b4711a086babcf6b3069b.tar.bz2
otp-38ee7a20cfdc22ead35b4711a086babcf6b3069b.zip
syntax_tool: Add missing type information
Diffstat (limited to 'lib/syntax_tools')
-rw-r--r--lib/syntax_tools/src/erl_syntax.erl7
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/syntax_tools/src/erl_syntax.erl b/lib/syntax_tools/src/erl_syntax.erl
index 7f58fda519..4e2235d552 100644
--- a/lib/syntax_tools/src/erl_syntax.erl
+++ b/lib/syntax_tools/src/erl_syntax.erl
@@ -3523,7 +3523,10 @@ qualified_name_segments(Node) ->
%% @see is_form/1
%% @see rule/2
--record(function, {name, clauses}).
+-record(function, {
+ name :: atom(),
+ clauses :: list()
+ }).
%% XXX: This one is problematic because there is a tuple with the same
%% tag and size that comes from 'erl_parse'
%% -record(function, {name :: syntaxTree(), clauses :: [syntaxTree()]}).
@@ -6100,7 +6103,7 @@ implicit_fun_name(Node) ->
arity_qualifier(
set_pos(atom(Atom), Pos),
set_pos(integer(Arity), Pos)));
- {'fun', Pos, {function, Module, Atom, Arity}} ->
+ {'fun', _Pos, {function, Module, Atom, Arity}} ->
%% New in R15: fun M:F/A.
module_qualifier(Module, arity_qualifier(Atom, Arity));
Node1 ->