anchor.diff:  
   instrumented(call, [Module, Name, Args], Location, Info) ->
     Arity = length(Args),
  -  instrumented_aux(Module, Name, Arity, Args, Location, Info);
  +  instrumented_call(Module, Name, Arity, Args, Location, Info);
   instrumented(apply, [Fun, Args], Location, Info) ->
     case is_function(Fun) of
       true ->
  
positive.code:       end,
        {doit, Info}
    end;
  instrumented_aux({Module, _} = Tuple, Name, Arity, Args, Location, Info) ->
    instrumented_aux(Module, Name, Arity + 1, Args ++ Tuple, Location, Info);
  instrumented_aux(_, _, _, _, _, Info) ->
    {doit, Info}.
  
  get_fun_info(Fun, Tag) ->
  
negative.code:       Name = get_fun_info(Fun, name),
        Arity = get_fun_info(Fun, arity),
        case length(Args) =:= Arity of
          true -> instrumented_call(Module, Name, Arity, Args, Location, Info);
          false -> {doit, Info}
        end;
      false ->
  