diff options
| author | Fredrik Gustafsson <[email protected]> | 2013-05-15 11:08:19 +0200 |
|---|---|---|
| committer | Fredrik Gustafsson <[email protected]> | 2013-05-28 14:33:50 +0200 |
| commit | 48b246a571a18a91999d64d2e1700c2b4e5b152c (patch) | |
| tree | ace1fbccb1579524cc7c3191826eb25a978b953d /lib/stdlib | |
| parent | 641e18ccac9e5f346dcac51f65385f8656bcdce1 (diff) | |
| download | otp-48b246a571a18a91999d64d2e1700c2b4e5b152c.tar.gz otp-48b246a571a18a91999d64d2e1700c2b4e5b152c.tar.bz2 otp-48b246a571a18a91999d64d2e1700c2b4e5b152c.zip | |
stdlib: re-factored erl_lint.erl
Diffstat (limited to 'lib/stdlib')
| -rw-r--r-- | lib/stdlib/src/erl_lint.erl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/stdlib/src/erl_lint.erl b/lib/stdlib/src/erl_lint.erl index b37ee5066c..08b8541014 100644 --- a/lib/stdlib/src/erl_lint.erl +++ b/lib/stdlib/src/erl_lint.erl @@ -1006,7 +1006,10 @@ check_undefined_functions(#lint{called=Called0,defined=Def0}=St0) -> check_undefined_types(#lint{usage=Usage,types=Def}=St0) -> Used = Usage#usage.used_types, UTAs = dict:fetch_keys(Used), - Undef = [{TA,dict:fetch(TA, Used)} || TA <- UTAs, not dict:is_key(TA, Def), not is_default_type(TA)], + Undef = [{TA,dict:fetch(TA, Used)} || + TA <- UTAs, + not dict:is_key(TA, Def), + not is_default_type(TA)], foldl(fun ({TA,L}, St) -> add_error(L, {undefined_type,TA}, St) end, St0, Undef). |