anchor.diff:                                 Options, Target);
                   {ok, _ModuleName, Warnings} ->
                       eta_event:task_event(BuildRef, ?TASK, file_warning,
  -                                         gather_fail_info(Warnings, [], "warning")),
  +                                         gather_fail_info(Warnings, "warning")),
                       ok;
                   {error, Errors, Warnings} ->
                       eta_event:task_event(BuildRef, ?TASK, file_error,
  -                                         [gather_fail_info(Errors, [], "error"),
  -                                          gather_fail_info(Warnings, [], "warning")]),
  +                                         [gather_fail_info(Errors, "error"),
  +                                          gather_fail_info(Warnings, "warning")]),
                       error
               end;
           false ->
  
positive.code: %% @end
  %% @private
  %%-------------------------------------------------------------------
  gather_fail_info(File, [{Line, Type, Detail} | T], Acc, WoE)
    when is_atom(Line) ->
      gather_fail_info(File, T, [lists:flatten([File, $:,
                                                atom_to_list(Line),
                                                $:, WoE, $:,
                                                Type:format_error(Detail),
                                                $\n]) | Acc], WoE);
  gather_fail_info(File, [{Line, Type, Detail} | T], Acc, WoE)
    when is_integer(Line) ->
      gather_fail_info(File, T, [lists:flatten([File, $:,
                                                integer_to_list(Line),
                                                $:, WoE, $:,
                                                Type:format_error(Detail),
                                                $\n]) | Acc], WoE);
  gather_fail_info(File, [{Type, Detail} | T], Acc, WoE) ->
      gather_fail_info(File, T, [lists:flatten([File,
                                                ":noline:", WoE, $:,
                                                Type:format_error(Detail),
                                                $\n]) | Acc], WoE);
  gather_fail_info(_File, [], Acc, _) ->
      Acc.
  
  %%====================================================================
  %% Tests
  
negative.code: %% @doc
  %%  Map the lists of dependencies for 'App' into a pairs for the
  %%  topo sort.
  %% @spec (App, Deps, AllApps) -> NAcc
  %% @end
  %% @private
  %%--------------------------------------------------------------------
  map_deps(App, Deps, AllApps) ->
   	 lists:foldr(fun (DApp, Acc) ->
   			     case lists:keymember(DApp, 1, AllApps) of
   				 true ->
   				     [{to_list(DApp), to_list(App)} | Acc];
   				 false ->
   				     Acc
   			     end
   		     end, [], Deps).
  			     
  %%--------------------------------------------------------------------
  %% @doc
  %%  Change an atom to a list of the argument is an atom, otherwise
  