Minor refactorbug22812

1 files changed, 4 insertions, 3 deletions

diff --git a/src/delegate.erl b/src/delegate.erl
index 2f7bc299..98353453 100644
--- a/src/delegate.erl
+++ b/src/delegate.erl
@@ -99,13 +99,14 @@ internal_cast(Node, Thunk) when is_atom(Node) ->
     gen_server2:cast({remote_server(Node), Node}, {thunk, Thunk}).
 
 split_delegate_per_node(Pids) ->
+    LocalNode = node(),
     {Local, Remote} =
         lists:foldl(
           fun (Pid, {L, D}) ->
                   Node = node(Pid),
-                  case node() of
-                      Node -> {[Pid|L], D};
-                      _    -> {L, orddict:append(node(Pid), Pid, D)}
+                  case Node of
+                      LocalNode -> {[Pid|L], D};
+                      _         -> {L, orddict:append(Node, Pid, D)}
                   end
           end,
           {[], orddict:new()}, Pids),