anchor.diff:  
   
   %%-------------------------------------------------------------------
  -%% @spec (ListOfProblems, Acc, Type) -> Acc2
  +%% @spec (ListOfProblems, Type) -> Acc2
   %% @doc
   %%   Gather up all the errors and warnings for output.
   %% @end
   %% @private
   %%-------------------------------------------------------------------
  -gather_fail_info([{File, ListOfProblems} | T], Acc, Type) ->
  -    gather_fail_info(T, gather_fail_info(File, ListOfProblems, Acc, Type),
  -                     Type);
  -gather_fail_info([], Acc, _Type) ->
  -    lists:reverse(Acc).
  +gather_fail_info(ListOfProblems, Type) ->
  +    R = lists:foldr(fun ({File, Problems}, Acc) ->
  +			    gather_fail_info(File, Problems, Acc, Type)
  +		    end, [], ListOfProblems),
  +    lists:reverse(R).
   
   %%-------------------------------------------------------------------
   %% @doc
  
positive.code:                            [{File, module_name(File), Ext} | Acc]
                     end, []),
      reorder_list(BuildRef, ModuleList,
                   filter_file_list(BuildRef, FileList, ModuleList, []),
                   []).
  
  %%--------------------------------------------------------------------
  %% @doc
  
negative.code: %% @spec (Opts, Acc) -> Acc2
  %% @end
  %%--------------------------------------------------------------------
  strip_options(Opts) ->
      lists:foldr(
        fun (Opt = {parserfile, _}, Acc) ->
  	      [Opt | Acc];
  	  (Opt = {includefile, _}, Acc) ->
  	      [Opt | Acc];
  	  (Opt = {report_errors, _}, Acc) ->
  	      [Opt | Acc];
  	  (Opt = {report_warnings, _}, Acc) ->
  	      [Opt | Acc];
  	  (Opt = {report, _}, Acc) ->
  	      [Opt | Acc];
  	  (Opt = {return_warnings, _}, Acc) ->
  	      [Opt | Acc];
  	  (Opt = {verbose, _}, Acc) ->
  	      [Opt | Acc];
  	  (_, Acc) ->
  	      Acc
        end, [], Opts).
  
  %%--------------------------------------------------------------------
  %% @doc
  