anchor.diff:  compile_directory(Dir, Options) when is_list(Dir), is_list(Options) ->
       case file:list_dir(Dir) of
   	{ok, Files} ->
  -	    
  -	    %% Filter out all erl files (except cover.erl)
  -	    ErlFileNames =
  -		lists:filter(fun("cover.erl") ->
  -				     false;
  -				(File) ->
  -				     case filename:extension(File) of
  -					 ".erl" -> true;
  -					 _ -> false
  -				     end
  -			     end,
  -			     Files),
  -
  -	    %% Create a list of .erl file names (incl path) and call
  -	    %% compile_modules/2 with the list of file names.
  -	    ErlFiles = lists:map(fun(ErlFileName) ->
  -					 filename:join(Dir, ErlFileName)
  -				 end,
  -				 ErlFileNames),
  +	    ErlFiles = [filename:join(Dir, File) ||
  +			   File <- Files,
  +			   filename:extension(File) =:= ".erl"],
   	    compile_modules(ErlFiles, Options);
   	Error ->
   	    Error
  
positive.code: 			end,
  		    reply(From,Reply),
  		    Imported = remove_imported(Module,State#main_state.imported),
  		    main_process_loop(State#main_state{compiled = Compiled,
  						       imported = Imported});
  		{error,no_beam} ->
  		    %% The module has first been compiled from .erl, and now
  		    %% someone tries to compile it from .beam
  
negative.code: compile_beam_directory(Dir) when is_list(Dir) ->
      case file:list_dir(Dir) of
  	{ok, Files} ->
  	    BeamFiles =  [filename:join(Dir, File) ||
  			     File <- Files,
  			     filename:extension(File) =:= ".beam"],
  	    compile_beams(BeamFiles);
  	Error ->
  	    Error
  