%
% delete selected node in task tree
%

_\ positive
{
 _\ dup Mep.Remove
 -
 Tree.Off
 selnode Tree.Select
 Tree.On
 nod@
} if