-- /ivy/binding/hickory/hickoryDestroy.mesa
-- destroying old events
-- Last edited by: Binding, August 10, 1984 10:07:22 am PDT
DIRECTORY
BasicTime
USING [
GMT]
;
HickoryDestroy:
CEDAR
DEFINITIONS
=
BEGIN
PurgeEvents:
PRIVATE
--INTERNAL--
PROCEDURE [ from, to: BasicTime.
GMT];
throws out all events whose keepUntil attribute falls into the given time interval.
when it is first called, from = BasicTime.earliestGMT
END.