aboutsummaryrefslogtreecommitdiffstats
path: root/lib/kernel/src/error_handler.erl
diff options
context:
space:
mode:
authorKostis Sagonas <[email protected]>2010-03-07 11:05:06 +0100
committerBjörn Gustavsson <[email protected]>2010-04-28 07:04:56 +0200
commit75ea6a39d1cf4bd4a67391595b90d8d90155d012 (patch)
tree7641cd91bbe2a28399280d691fe3904e0cf26913 /lib/kernel/src/error_handler.erl
parent39e5ca57147c08502806f873c107c77e197a78ab (diff)
downloadotp-75ea6a39d1cf4bd4a67391595b90d8d90155d012.tar.gz
otp-75ea6a39d1cf4bd4a67391595b90d8d90155d012.tar.bz2
otp-75ea6a39d1cf4bd4a67391595b90d8d90155d012.zip
kernel: Clean up as suggested by tidier
Diffstat (limited to 'lib/kernel/src/error_handler.erl')
-rw-r--r--lib/kernel/src/error_handler.erl8
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/kernel/src/error_handler.erl b/lib/kernel/src/error_handler.erl
index 5f2507fc08..36f2de2af6 100644
--- a/lib/kernel/src/error_handler.erl
+++ b/lib/kernel/src/error_handler.erl
@@ -117,13 +117,13 @@ stub_function(Mod, Func, Args) ->
check_inheritance(Module, Args) ->
Attrs = erlang:get_module_info(Module, attributes),
- case lists:keysearch(extends, 1, Attrs) of
- {value,{extends,[Base]}} when is_atom(Base), Base =/= Module ->
+ case lists:keyfind(extends, 1, Attrs) of
+ {extends, [Base]} when is_atom(Base), Base =/= Module ->
%% This is just a heuristic for detecting abstract modules
%% with inheritance so they can be handled; it would be
%% much better to do it in the emulator runtime
- case lists:keysearch(abstract, 1, Attrs) of
- {value,{abstract,[true]}} ->
+ case lists:keyfind(abstract, 1, Attrs) of
+ {abstract, [true]} ->
case lists:reverse(Args) of
[M|Rs] when tuple_size(M) > 1,
element(1,M) =:= Module,