anchor.diff:    catch exit:{noproc,_} -> ok
     end.
   
  +get_state(Mod) ->
  +  gen_server:call(Mod,get_state).
  +
   print_state(Mod) ->
  -  gen_server:call(Mod,print_state).
  +  print_term(get_state(Mod)).
   
   unlink() ->
     {links,Links} = process_info(self(),links),
  
positive.code: 
  safer(LD,_,[stop|_]) ->
    {stop,shutdown,LD};
  safer(LD,F,[print_state|As]) ->
    print_state(LD#ld.mod,last(As)),
    safe_default(F,LD);
  safer(LD,F,As) ->
    case erlang:function_exported(LD#ld.mod,F,length(As)) of
      false-> safe_default(F,LD);
  
negative.code: 
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% utilities
  
  print_term(Term) -> 
    print_term(group_leader(),Term).
  