anchor.diff:  to_src(MetaMod, Filename) ->
     file:write_file(Filename, to_src(MetaMod)).
   
  +%%% ===================================================== [ Internal functions ]
  +
  +-spec list_dir(Dir :: file:dirname()) -> Result when
  +    Result :: result([file:filename()], erl_prim_loader).
  +list_dir(Dir) ->
  +  handle_list_dir(erl_prim_loader:list_dir(Dir)).
  +
  +handle_list_dir(error)           -> {error, erl_prim_loader};
  +handle_list_dir({ok, Filenames}) -> {ok, Filenames}.
  +
  +-spec read_file_info(Filename :: file:filename()) -> Result when
  +    Result :: result(file:file_info(), file:posix() | badarg).
  +read_file_info(Filename) ->
  +  erl_prim_loader:read_file_info(Filename).
  +
   %%% ==================================================================== [ EOF ]
  
positive.code:             end,
        case Res of
          ok ->
            code:purge(Module),
            case code:load_binary(Module, atom_to_list(Module) ++ ".erl", Bin) of
              {module, _Module} -> ok;
              Err               -> Err
            end;
  
negative.code:   [];
  get_forms_from_file_list(Module, Basedir, [H|T]) ->
    Filename = H ++ "/" ++ atom_to_list(Module) ++ ".erl",
    case read_file_info(Filename) of
      {ok, #file_info{type=regular}} ->
        epp:parse_file(Filename, [filename:dirname(Filename)], []);
      _ ->
  