%
% stack: empty [ . . . . ] tree-global cur-tree tree-hier
%
@@
*treemake
second "\" Str.RevLeft
"tpref " log)(
"tpref" \!
"tglobal " log)(
second "tglobal" \!
_fname "fname" \!
%
% turn on sorting for all nodes ancestral to this node
%
{
 Tree._Parent dup negative ?
%
% valid node, turn on sorting
%
 !\
%
% load the information for this node
%
 *tasksort
} loop
pop
%
% mark the tree entry as matching search criteria
%
@Default#Targets
"Selected" _target Tree.!Mark
%
% stack: empty [ . . . . ] tree-global cur-tree
%