diff options
| author | Kostis Sagonas <[email protected]> | 2010-03-07 11:05:06 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2010-04-28 07:04:56 +0200 |
| commit | 75ea6a39d1cf4bd4a67391595b90d8d90155d012 (patch) | |
| tree | 7641cd91bbe2a28399280d691fe3904e0cf26913 /lib/kernel/src/error_handler.erl | |
| parent | 39e5ca57147c08502806f873c107c77e197a78ab (diff) | |
| download | otp-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.erl | 8 |
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, |