anchor.diff:      _ -> Acc
     end.
     
  +stub_function_loop(Fun) ->
  +  receive
  +    {Ref, Pid, Args} ->
  +      ?debugFmt("received {~p,~p,~p}", [Ref, Pid, Args]),
  +      Ret = (catch Fun(Args) ),
  +      ?debugFmt("sending {~p,~p}", [Ref,Ret]),
  +      Pid ! {Ref, Ret},
  +      stub_function_loop(Fun)
  +  end.
  +
   % Function -> {function, Lineno, Name, Arity, [Clauses]}
   % Clause -> {clause, Lineno, [Variables], [Guards], [Expressions]}
   % Variable -> {var, Line, Name}
  
positive.code: stop(Module) ->
    gen_server:cast(mod_to_name(Module), stop),
    timer:sleep(10).
  %%====================================================================
  %% gen_server callbacks
  %%====================================================================
  
negative.code:   generate_functions(Module, Exports, [generate_function(Module, Name, Arity)|FunctionForms]).
    
  generate_function(Module, Name, Arity) ->
    {function, 1, Name, Arity, [{clause, 1, generate_variables(Arity), [], generate_expression(mock, proxy_call, Module, Name, Arity)}]}.
    
  generate_variables(0) -> [];
    
  