<> <> <> <> <> DIRECTORY Allocator USING [HeaderP, NHeaderP], SafeStorage USING [Type]; SweepCollectableStorage: DEFINITIONS = BEGIN InfoProc: TYPE = PROC [type: SafeStorage.Type, size: INT, object: Allocator.HeaderP, objectHP: Allocator.NHeaderP] RETURNS [continue: BOOLEAN]; EnumerateCollectableStorage: PROC [proc: InfoProc]; END.