anchor.diff:      lists:foldl(fun (#erl_link{type = T, pid = I} = EL,
                        Acc) when T == Type, I == Item ->
                           [EL|Acc];
  +                    ({erl_link, T, P, I},
  +                     Acc) when T == Type, P == Item ->
  +                        %% Old emulator without state (linked if record exists)...
  +                        [#erl_link{type = T, pid = P, id = I, state = linked}|Acc];
                       (_, Acc) ->
                           Acc
                   end,
  
positive.code:             Reason = noconnection
      end.
  
  %%
  %% -- Internal utils --------------------------------------------------------
  %%
  
negative.code:             end
      end.
  
  busy_wait_until(Fun) ->
      case Fun() of
          true -> ok;
          _ ->
              busy_wait_until(Fun)
      end.
  
  forever(Fun) ->
      Fun(),
      forever(Fun).
  