anchor.diff:  
   app_modules(Data) ->
       Modules = lists:foldl(fun({_File, Code}, R) ->
  -        case re:run(Code, "module\\((\\w+)\\)", [{capture, all, list}]) of
  +        case re:run(Code, "module\\((" ++ ?ATOM_PATTERN ++ ")\\)", [{capture, all, list}]) of
               {match, [_, Module]} ->
                   [Module | R];
               nomatch ->
  
positive.code: %%% vim: set ts=4 sts=4 sw=4 et:
  
  -define('TMP_FILENAME', "/tmp/get_implicit_deps.tmp").
  
  main([Help]) when Help =:= "?"; Help =:= "-h"; Help =:= "--help"; Help =:= "help" ->
      io:format("Usage:~n$0 <dirname>~n");
  
negative.code:             [];
          true ->
              {ok, Data} = file:consult(Filename),
              case proplists:get_value(deps, Data) of
                  undefined ->
                      [];
                  Deps ->
                      lists:map(fun({Module, _V, _O}) ->
                          Module
                      end, Deps)
              end
      end.
  
  functions(Data) ->
      Functions = lists:foldl(fun({{Filename, _Fileline} = File, Code}, R) ->
          case re:run(Filename, "\\.erl$", [{capture, all, list}]) of
              {match, _} -> 
                  R ++ case re:run(Code, "(" ++ ?ATOM_PATTERN ++ "):(" ++ ?ATOM_PATTERN ++ ")",
                                              [global, {capture, all, list}]) of
                      {match, Match1} ->
                          [{{M1, F1}, File} || [_, M1, F1] <- Match1];
                      nomatch ->
                          []
                  end     
                  ++ case re:run(Code, "apply\\s*\\(\\s*(" ++ ?ATOM_PATTERN ++ ")\\s*,\\s*(" ++ ?ATOM_PATTERN ++ ")\\s*,",
                                          [global, {capture, all, list}]) of
                      {match, Match2} ->
                          [{{M2, F2}, File} || [_, M2, F2] <- Match2];
                      nomatch ->
  