anchor.diff:  %% implementation
   
   safer(LD,_,[stop|_]) ->
  +  {stop,normal,LD};
  +safer(LD,_,[shutdown|_]) ->
     {stop,shutdown,LD};
   safer(LD,F,[get_state|As]) ->
     CLD = last(As),
  
positive.code:   gen_server:start_link({local, Mod}, ?MODULE, {Mod,Args}, []).
  
  stop(Mod) -> 
    try gen_server:cast(Mod,stop) 
    catch exit:{noproc,_} -> ok
    end.
  
  get_state(Mod,Field) ->
    case proplists:is_defined(Field,State = get_state(Mod)) of
  
negative.code:   end;
  expand_recs(_,Term) ->
    Term.
  
  cast(Mod,What) ->
    try gen_server:cast(Mod,What) 
    catch exit:{noproc,_} -> ok
    end.
  