anchor.diff:                          S
                   end, undefined, ProcList).
   
  +
  +%% @doc Returns a process by the pid
  +%%
  +-spec(find_by_pid(list(), pid()) ->
  +             tuple()).
   find_by_pid(ProcList, Pid0) ->
       lists:foldl(fun({Pid1, ProcInfo}, undefined) when Pid0 == Pid1 ->
                           ProcInfo;
  
positive.code:                         Acc
                  end, undefined, ProcList).
  
  delete_by_pid(ProcList, Pid0) ->
      lists:foldl(fun({Pid1, _}, Acc) when Pid0 == Pid1 ->
                          Acc;
  
negative.code:                     ?error("register_fun_1/3", "node:~w, cause:~p", [Node, Cause]),
                      {error, Cause}
              end;
          {error, Cause} ->
              ?error("register_fun_1/3", "node:~w, cause:~p", [Node, Cause])
      end;
  