diff options
| author | Kostis Sagonas <[email protected]> | 2010-02-07 21:15:42 +0200 |
|---|---|---|
| committer | Raimo Niskanen <[email protected]> | 2010-06-07 13:44:27 +0200 |
| commit | 9e962d71c6320e224025f86070f4f9421b51fea0 (patch) | |
| tree | 29e4814fb8df96b8ed2ae5dab63ce34ec24a1158 /lib/debugger/src/int.erl | |
| parent | 3647defb6f32d471355017967bdebb83b5c6224c (diff) | |
| download | otp-9e962d71c6320e224025f86070f4f9421b51fea0.tar.gz otp-9e962d71c6320e224025f86070f4f9421b51fea0.tar.bz2 otp-9e962d71c6320e224025f86070f4f9421b51fea0.zip | |
debugger: Clean up as suggested by tidier
Diffstat (limited to 'lib/debugger/src/int.erl')
| -rw-r--r-- | lib/debugger/src/int.erl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/debugger/src/int.erl b/lib/debugger/src/int.erl index eeb4df4a8e..9ee2102a19 100644 --- a/lib/debugger/src/int.erl +++ b/lib/debugger/src/int.erl @@ -261,7 +261,7 @@ del_break_in(Mod, Func, Arity) when is_atom(Mod), is_atom(Func), is_integer(Arit end. first_lines(Clauses) -> - lists:map(fun(Clause) -> first_line(Clause) end, Clauses). + [first_line(Clause) || Clause <- Clauses]. first_line({clause,_L,_Vars,_,Exprs}) -> first_line(Exprs); @@ -469,10 +469,10 @@ contents(Mod, Pid) -> %% Arity = integer() %%-------------------------------------------------------------------- functions(Mod) -> - lists:filter(fun([module_info, _Arity]) -> false; - (_Func) -> true - end, - dbg_iserver:call({functions, Mod})). + [F || F <- dbg_iserver:call({functions, Mod}), functions_1(F)]. + +functions_1([module_info, _Arity]) -> false; +functions_1(_Func) -> true. %%==================================================================== |