anchor.diff:  			    Warns ++ fix_erl_errors(Ews1), St)
       end.
   
  +do_save_ret(Val, File, Format, St) ->
  +    case St#comp.ret of
  +	file ->
  +	    ok = file:write_file(File, Format(Val)),
  +	    [];					%No return here
  +	value -> [Val]				%Return value
  +    end.
  +
   %% fix_erl_errors([{File,Errors}]) -> Errors.
   
   fix_erl_errors([{_,Es}|Fes]) -> Es ++ fix_erl_errors(Fes);
  
positive.code: 
  %% erl_comp_opts(Options) -> Options.
  %%  Strip out report options and make sure erlang compiler returns
  %%  errors and warnings.
  
  erl_comp_opts([report|Os]) -> erl_comp_opts(Os);
  erl_comp_opts([report_warnings|Os]) -> erl_comp_opts(Os);
  erl_comp_opts([report_errors|Os]) -> erl_comp_opts(Os);
  erl_comp_opts([O|Os]) -> [O|erl_comp_opts(Os)];
  erl_comp_opts([]) -> [return].			%Ensure return!
  
  %% do_ok_return(Ret, Warnings, State) -> {ok,Mod,...}.
  %% do_error_return(Errors, Warnings, State) -> {error,...} | error.
  
negative.code: 
  %% -compile(export_all).
  
  -import(lists, [member/2,keysearch/3,filter/2,
  		all/2,map/2,foldl/3,foldr/3,mapfoldl/3,mapfoldr/3,
  		concat/1]).
  -import(ordsets, [add_element/2,is_element/2,from_list/1,union/2]).
  