anchor.diff:  gather_fail_info(File, ListOfProblems, Acc, WoE) ->
       lists:foldr(
         fun ({Line, Type, Detail}, Acc1) when is_atom(Line) ->
  -	      [lists:flatten([File, $:, atom_to_list(Line),
  -			      $:, WoE, $:, Type:format_error(Detail),
  -			      $\n]) | Acc1];
  -	  ({Line, Type, Detail}, Acc1) when is_integer(Line) ->
  -	      [lists:flatten([File, $:, integer_to_list(Line),
  -			      $:, WoE, $:, Type:format_error(Detail),
  -			      $\n]) | Acc1];
  -	  ({Type, Detail}, Acc1) ->
  -	      [lists:flatten([File, ":noline:", WoE, $:,
  -			      Type:format_error(Detail), $\n]) | Acc1]
  +              [lists:flatten([File, $:, atom_to_list(Line),
  +                              $:, WoE, $:, Type:format_error(Detail),
  +                              $\n]) | Acc1];
  +          ({Line, Type, Detail}, Acc1) when is_integer(Line) ->
  +              [lists:flatten([File, $:, integer_to_list(Line),
  +                              $:, WoE, $:, Type:format_error(Detail),
  +                              $\n]) | Acc1];
  +          ({Type, Detail}, Acc1) ->
  +              [lists:flatten([File, ":noline:", WoE, $:,
  +                              Type:format_error(Detail), $\n]) | Acc1]
         end, Acc, ListOfProblems).
   
   
  
positive.code: get_hrl_files(File, Includes) ->
      {ok, Forms} = epp:parse_file(File, Includes,[]),
      HrlFiles = lists:foldl(fun({attribute, _ , file, {Include, _}}, Acc) ->
  				   case File of
  				       Include ->
  					   Acc;
  				       _ ->
  					   [Include | Acc]
  				   end;
  			      (_, Acc) ->
  				   Acc
  			   end,
  			   [],
  			   Forms),
      lists:foldl(fun(Hrl, Acc) ->
  			{ok, FileInfo} =  file:read_file_info(Hrl),
  			[{Hrl, FileInfo#file_info.mtime} | Acc]
  		end,
  		[],
  		HrlFiles).
  
  %%-------------------------------------------------------------------
  %% @doc
  
negative.code:                     build_file(BuildRef, ErlName, ".erl",
                                 Options, Target);
                  {ok, _ModuleName, Warnings} ->
                      ewl_talk:say(gather_fail_info(Warnings, "warning")),
                      ok;
                  {error, Errors, Warnings} ->
                      ewl_talk:say(lists:flatten([gather_fail_info(Errors, "error"),
                                                  gather_fail_info(Warnings, "warning")])),
                      error
              end;
          false ->
  