anchor.diff:    do_wildcard_3(Base, [[accept]], Result, Mod);
   do_wildcard_3(Base, [[double_star]|Rest], Result, Mod) ->
     case do_list_dir(Base, Mod) of
  -  	{ok, Files} ->
  +    {ok, Files} ->
         do_double_star(Base, Files, Rest, Result, length(Rest), Mod);
  -  	_ ->
  -	    Result
  +    _ ->
  +      Result
     end;
   
   do_wildcard_3(Base, [Pattern|Rest], Result, Mod) ->
     case do_list_dir(Base, true) of
  -  	{ok, Files} ->
  -	    Matches = wildcard_4(Pattern, Files, Base, [], Mod),
  -	    do_wildcard_2(Matches, Rest, Result, Mod);
  -  	_ ->
  -	    Result
  +    {ok, Files} ->
  +      Matches = wildcard_4(Pattern, Files, Base, [], Mod),
  +      do_wildcard_2(Matches, Rest, Result, Mod);
  +    _ ->
  +      Result
     end;
   do_wildcard_3(Base, [], Result, _Mod) ->
       [Base|Result].
  
positive.code: compile_wildcard_1(Pattern) ->
    [Root|Rest] = filename:split(Pattern),
    case filename:pathtype(Root) of
    	relative ->
  	    compile_wildcard_2([Root|Rest], current);
    	_ ->
  	    compile_wildcard_2(Rest, [Root])
    end.
  
  compile_wildcard_2([Part|Rest], Root) ->
    case compile_part(Part) of
    	Part ->
  	    compile_wildcard_2(Rest, join(Root, Part));
    	Pattern ->
  	    compile_wildcard_3(Rest, [Pattern,Root])
    end;
  compile_wildcard_2([], Root) -> {exists,Root}.
  
  
negative.code: % Check if the pattern match for the list of files.
  wildcard_4(Pattern, [File|Rest], Base, Result, Mod) ->
    NewResult = case wildcard_5(Pattern, File, Mod) of
      true  -> [join(Base, File)|Result];
      false -> Result
    end,
    wildcard_4(Pattern, Rest, Base, NewResult, Mod);
  wildcard_4(_Patt, [], _Base, Result, _Mod) ->
  