%
% startup of xact area and seek for photo system
%
% track the lowest effective phasing Xact
%
0 !Xact.Low

/*
%
% the insurance counter must exceed the largest xact number
%%%% also track the lowest xact phaseable
% 
0 !Xact
snap "xact*"
{
%
% stack: snap-dir wildcard
%
 2 copy
 xactseed
%
% stack: snap-dir wildcard
%         snap-dir wildcard xact-seed (empty to start)
%
"seed" log)(
 File.FoldNext
%
% stack: snap-dir wildcard new-pathed-seed
%
 isnull ?
"newfold" log)(
%
% stack: snap-dir wildcard new-seed
%
 "\xact" right$ !Xact
 *xactlwst

} loop
3 popoff


0

_Xact max
"maxact" log)(
*finsures
"fins" log)(
gt
{
 +Xact "_insure" text!bin
} if
%
% the Xact value is safely beyond any prior transaction
%

*/