-- File: DisjointCollapseDefs.mesa
-- Written by Martin Newell/Dan Fitzpatrick June 1981
-- Last edited: June 26, 1981 4:43 PM

DIRECTORY

DisjointTypes: FROM "DisjointTypes" USING [Symbol];

DisjointCollapseDefs: DEFINITIONS =
BEGIN
OPEN DisjointTypes;

GarbageCollect: PUBLIC PROCEDURE[symb: Symbol];

SetCollapseSize: PUBLIC PROCEDURE [n:INTEGER];

Collapse: PUBLIC PROCEDURE[symb: Symbol];

END.