diff options
| author | Hans Svensson <[email protected]> | 2014-01-23 09:56:04 +0100 |
|---|---|---|
| committer | Hans Svensson <[email protected]> | 2014-01-24 22:55:56 +0100 |
| commit | b1a93cb1d16e8a65a608727b55ef800dcc75351c (patch) | |
| tree | 9f2594ad1658b8a8e86d349d40859f782f932156 /lib/orber | |
| parent | 6dd785c831ecbc9afcfbd33c604c7fc327e94c28 (diff) | |
| download | otp-b1a93cb1d16e8a65a608727b55ef800dcc75351c.tar.gz otp-b1a93cb1d16e8a65a608727b55ef800dcc75351c.tar.bz2 otp-b1a93cb1d16e8a65a608727b55ef800dcc75351c.zip | |
Use lists:droplast/1 in orber/orber_interceptors.erl
Diffstat (limited to 'lib/orber')
| -rw-r--r-- | lib/orber/src/orber_interceptors.erl | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/lib/orber/src/orber_interceptors.erl b/lib/orber/src/orber_interceptors.erl index 407823ea79..62870b35b5 100644 --- a/lib/orber/src/orber_interceptors.erl +++ b/lib/orber/src/orber_interceptors.erl @@ -112,7 +112,7 @@ pop_system_message_interceptor(out) -> [{_, []}] -> ok; [{_, Interceptors}] -> - ets:insert(orber_interceptors, {message_out_interceptors, remove_last_element(Interceptors)}); + ets:insert(orber_interceptors, {message_out_interceptors, lists:droplast(Interceptors)}); _ -> corba:raise(#'INTERNAL'{completion_status=?COMPLETED_NO}) end. @@ -151,12 +151,3 @@ apply_message_interceptors([], F, ObjRef, Bytes) -> apply_message_interceptors([M | Rest], F, ObjRef, Bytes) -> apply_message_interceptors(Rest, F, ObjRef, apply(M, F, [ObjRef, Bytes])). - -remove_last_element([]) -> - []; -remove_last_element([M]) -> - []; -remove_last_element([M |Tail]) -> - remove_last_element([Tail]). - - |