aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorHans Svensson <[email protected]>2014-01-23 09:56:04 +0100
committerHans Svensson <[email protected]>2014-01-24 22:55:56 +0100
commitb1a93cb1d16e8a65a608727b55ef800dcc75351c (patch)
tree9f2594ad1658b8a8e86d349d40859f782f932156
parent6dd785c831ecbc9afcfbd33c604c7fc327e94c28 (diff)
downloadotp-b1a93cb1d16e8a65a608727b55ef800dcc75351c.tar.gz
otp-b1a93cb1d16e8a65a608727b55ef800dcc75351c.tar.bz2
otp-b1a93cb1d16e8a65a608727b55ef800dcc75351c.zip
Use lists:droplast/1 in orber/orber_interceptors.erl
-rw-r--r--lib/orber/src/orber_interceptors.erl11
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]).
-
-