%
% stack: plat-name
%
"Plat" &"#" &2 &"#" heretext
dup exists
{
%
% the plat has a current text form
%
% stack: plat-name plat-file
%
 exec
%
% stack: plat-name
%
 pop
}
{
%
% no plat text form, build it
%
 exch
%
% bring up pep plat tree
%
 this(
 true "Plat" &"#" &3) *treeacts
%
% load the current pep file for this
%
%%% ._MepSpec Tree.Load
%%% root\
mod@?
{
%
% tree changed, save it
%
 "Save" *persists
}
{
%
% safe to load tree
%
 "Load" *persists
} ifelse

 [(Start)]

 Tree.Off

 empty *platchld

 Tree.On

 [(End)]

dup logs

 rot write

 !@

} ifelse