-- File: DisjointColapseDefs.mesa
-- Written by Martin Newell/Dan Fitzpatrick June 1981
-- Last edited: June 25, 1981 10:04 PM

DIRECTORY

DisjointTypes: FROM "DisjointTypes" USING [Symbol];

DisjointColapseDefs: DEFINITIONS =
BEGIN
OPEN DisjointTypes;

SetColapseSize: PUBLIC PROCEDURE [n:INTEGER];

Colapse: PUBLIC PROCEDURE[symb: Symbol];

END.