anchor.diff:  add_result(State = #state{queue = Q, results = Results}, Notice, Result) ->
       Results2 = case queue:get(Q) of
                      {{incremental, From, Ref}, _} ->
  -                       From ! {Ref, Notice},
  +                       From ! {self(), Ref, Notice},
                          Results;
                      _ ->
                          [Result | Results]
  
positive.code: finish(State = #state{queue = Q}, Notice, Result) ->
      case queue:get(Q) of
          {{cast, From, Ref}, _} ->
              From ! {Ref, Result};
          {{incremental, From, Ref}, _} ->
              From ! {Ref, Notice};
          {{call, From}, _} ->
              gen_server:reply(From, Result)
      end,
  
negative.code: notify(State = #state{queue = Q}, Notice) ->
      case queue:get(Q) of
          {{incremental, From, Ref}, _} ->
              From ! {self(), Ref, Notice};
          _ ->
              ignore
      end,
  