anchor.diff:  locate_src(_,[]) ->
       false.
   
  -mod_to_fname(Mod) ->
  -    hd(lists:reverse(packages:split(Mod))).
  -
   
   %%______________________________________________________________________
   %% smart_guess(Mod, Dir,IncludePath) -> {[Dirs],[IncDirs]}
  
positive.code:     end.
  
  locate_src(Mod,[Dir|Dirs]) ->
      File = filename:join(Dir, mod_to_fname(Mod) ++ ".erl"),
      case file:read_file_info(File) of
  	{ok,FileInfo} ->
  	    LastModTime = FileInfo#file_info.mtime,
  
negative.code:     [{progress, modules_loaded}].
  
  load_commands(Mods, Path) ->
      [{path, [filename:join([Path])]},
       {primLoad,lists:sort(Mods)}].
  
  %%______________________________________________________________________
  %% Pack an application to an application term.
  