%
% stack: filespec date-time
%
any?
{
%
% compare the file date/time with supplied date/time
%
 exch stamp
"File" log)(
 dup !filetime
 "s" Time.Diff
"Diff" log)(
 unwhole not
}
{
%
% empty date/time supplied, indicate file newer than time
%
 stamp
"File" log)(
 !filetime
 true
} ifelse
%
% stack: file-newer
%