anchor.diff:      end.
   
   locate_src(Mod,[Dir|Dirs]) ->
  -    File = filename:join(Dir, mod_to_fname(Mod) ++ ".erl"),
  +    File = mod_to_filename(Dir, Mod, ".erl"),
       case file:read_file_info(File) of
   	{ok,FileInfo} ->
   	    LastModTime = FileInfo#file_info.mtime,
  
positive.code:     end.
  
  mod_to_filename(Dir, Mod, Ext) ->
      Parts = packages:split(Mod),
      filename:join([Dir | Parts]) ++ Ext.
  
  check_module(Mod, Dir, ObjModTime, IncPath) ->
      {SrcDirs,_IncDirs}= smart_guess(Mod, Dir,IncPath),
      case locate_src(Mod,SrcDirs) of
  	{ok,_FDir,_File,LastModTime} ->
  	    if
  
negative.code: %% src-dir should be one of .../src or .../src/e_src
  %% If dir does not contain .../ebin set dir to the same directory.
  
  smart_guess(Dir,IncPath) ->
      case reverse(filename:split(Dir)) of
  	["ebin"|D] ->
  	    D1 = reverse(D),
  	    Dirs = [filename:join(D1 ++ ["src"]),
  		    filename:join(D1 ++ ["src", "e_src"])],
  	    {Dirs,Dirs ++ IncPath};
  	_ ->
  	    {[Dir],[Dir] ++ IncPath}
  