anchor.diff:                                      r_interest_state = proplists:get_value(interest_state, St),
                                       r_choke_state    = proplists:get_value(choke_state, St),
                                       l_choke          = proplists:get_value(local_choke, St),
  -                                    snubbed = Snubbed } |
  +                                    peer_snubs = Snubbed } |
                               build_rechoke_info(Seeding, Next)]
               end
       end.
  
positive.code: %% But in the process, skip over any peer which is unintersting
  split_preferred_peers([], L, S) -> {L, S};
  split_preferred_peers([#rechoke_info { peer_state = PeerState, r_interest_state = RemoteInterest,
  				       state = State, snubbed = Snubbed } = P | Next],
  		      WeLeech, WeSeed) ->
      case PeerState == seeding orelse RemoteInterest == not_interested of
          true ->
  
negative.code: -record(rechoke_info, {pid :: pid(),
                         peer_state :: 'seeding' | 'leeching', % Is the peer seeding or leeching
                         state :: 'seeding' | 'leeching' , % Are we seeding or leeching the torrent of the peer
                         peer_snubs :: boolean(),
                         r_interest_state :: 'interested' | 'not_interested',
                         r_choke_state :: 'choked' | 'unchoked' ,
                         l_choke :: boolean(),
  