anchor.diff:  eprof() ->
       eprof:start(),
       eprof:profile(pids()),
  -    io:format("Ok run some traffic \n", []).
  +    debug_format("Ok run some traffic \n", []).
   
   
   
  
positive.code: typecheck([{int, Int} |Tail], File, Line) when is_integer(Int) ->
      typecheck(Tail, File, Line);
  typecheck([Err|_], File, Line) ->
      io:format(user, "TC ERROR ~s:~w:~n~p",
                [File, Line, Err]),
      erlang:error(tcerr);
  typecheck([], _,_) ->
  
negative.code:                           [Fstr, node(), filename:basename(File),
                             Line, self()])),
  
      case (catch debug_format(user, Str ++ Fmt ++ "~n", Args)) of
          ok -> ok;
          _ -> debug_format(user, "ERROR ~p:~p: Pid ~w: (bad format)~n~p,~p~n",
                         [File, Line, self(), Fmt, Args]),
  
               ok
      end;
  
  fail({format, File,Line,Fmt,Args}) ->
      case (catch debug_format(user, Fmt,Args)) of
          ok -> ok;
          _ ->
              debug_format(user, "ERROR ~p:~p: Pid ~w: (bad format)~n~p,~p~n",
                        [File, Line, self(), Fmt, Args]),
  
              ok
      end.
  
  debug_format(_, F, D) ->
      debug_format(F, D).
  
  debug_format(F, A) ->
      Str = case catch io_lib:format("yaws debug: " ++ F, A) of
          {'EXIT', Reason} ->
              io_lib:format("yaws debug: F=~s A=~p (failed to format: ~p)",
                  [F, A, Reason]);
          Ok -> Ok
      end,
      error_logger:info_msg(Str),
      catch io:format(F, A),
      ok.
  
  format(F, A) ->
      format(get(gc), F, A).
  format(GC, F, A) ->
      case ?gc_has_debug(GC) of
          true ->
              error_logger:info_msg("yaws debug:" ++ F, A);
          false ->
              ok
      end.
  