%
% merge the directory entry and the Tree file
% into the directory entry's node, attaching a . to the name
%
_@ dup !src@ !dest@

Tree.Down
{
 !\
%
% check for not applicable directory or file
%
 _\\ "_" atleft(
 {
%
% this should be removed
%
  pop
  _\ Mep.Remove
 }
 {
%
% check for a . at the end of the name
%
  1 right "." eq$
  {
%
% already listed as a target Tree
%
   _\\ -1 right !\\
   *firedesc
  }
  {
%
% probably directory, check for a Tree (. at right of name) entry
%
   *simpchek
   {
%
% the file node exists, merge this into the directory node
%
    *simpallv -1 right !\\
    *firedesc
   }
   {
%
% does not exist as a file
%
    dup Mep.Remove
   } ifelse
   pop
  } ifelse
 } ifelse
} for