anchor.diff:  %% @todo Remove me.
   -compile([export_all]).
   
  +-define(PASSIVE_VIEW_MAINTENANCE_INTERVAL, 10000).
   -define(ACTIVE_SIZE, 5).
   -define(PASSIVE_SIZE, 30).
   -define(ARWL, 6).
  
positive.code: %% @private
  neighbor_acceptable(Priority, #state{active=Active}) ->
      Priority =:= high orelse not is_full({active, Active}).
  
negative.code:     Index = random:uniform(length(List)),
      lists:nth(Index, List).
  
  %% @private
  select_random_sublist(View, K) ->
      List = members(View),
      lists:sublist(shuffle(List), K).
  
  %% @doc Add to the active view.
  add_to_active_view({Name, _, _}=Peer, #state{active=Active0}=State0) ->
      lager:info("Adding ~p to active view on ~p", [Peer, myself()]),
  