anchor.diff:  					 [io_lib:format("Standard Operation: ~p",
   							[Name])]),
   
  -		    emit(Fd, "handle_call({~s, ~p, []}, From, State) ->~n",
  +		    emit(Fd, "handle_call({_~s, ~p, []}, _From, State) ->~n",
   			 [mk_name(G, "Ref"), Name]),
  -
   		    emit(Fd, "    {reply, ~p, State};~n", [IFC_TKS]),
   		    nl(Fd),
   		    ok;
  
positive.code: 	    emit(Fd, "terminate(Reason, State) ->\n"),
  	    emit(Fd, "    ~p:~p(Reason, State).\n", 
  		 [Impl, terminate]),
  	    nl(Fd), nl(Fd)
      end,
      Fd.
  
negative.code: 	    nl(Fd),
  	    ic_codegen:comment(Fd, "gen server export stuff"),
  	    emit(Fd, "-behaviour(gen_server).\n"),
  	    ic_codegen:export(Fd, [{init, 1}, {terminate, 2}, {code_change, 3},
                                     {handle_call, 3}, {handle_cast, 2}, {handle_info, 2}]),
  	    nl(Fd), nl(Fd),
  	    ic_codegen:mcomment(Fd, ["Object interface functions."]),
  	    nl(Fd), nl(Fd), nl(Fd)
  