anchor.diff:  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   %% Report functions.
   %%
  -%% Errors messages are controlled with the 'report_errors' compiler option
   %% Warning messages are controlled with the 'report_warnings' compiler option
   %% Verbose messages are controlled with the 'verbose' compiler option
   
  -report_error(Format, Args, S) -> 
  -    case is_error(S) of
  -	true ->
  -	    io:format("~p: * ERROR * " ++ Format, [?MODULE | Args]);
  -	false ->
  -	    ok
  -    end.
  -    
   report_warning(Format, Args, S) -> 
       case is_warning(S) of
   	true ->
  
positive.code: 	    ok
      end.
  
  is_error(S) ->
      lists:member(report_errors, S#state.options) or is_verbose(S).
  
  is_warning(S) ->
      lists:member(report_warnings, S#state.options) or is_verbose(S).
  
  
negative.code:     Op = {delete, Name},
      PreOps = [Op | S#state.pre_ops],
      init_transform(Tail, S#state{pre_ops = PreOps});
  init_transform([_ | T], S) ->
      init_transform(T, S);
  init_transform([], S) ->
      S.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  