-- File: DisjointGatherDefs.mesa
-- Written by Martin Newell/Dan Fitzpatrick February 1981
-- Last edited: April 24, 1981 5:45 PM

DIRECTORY

DisjointTypes: FROM "DisjointTypes" USING [DisCell, Symbol];

DisjointGatherDefs: DEFINITIONS =
BEGIN
OPEN DisjointTypes;

Gather: PUBLIC PROCEDURE[symbol: Symbol, DisCellList: DisCell];

InitGather: PUBLIC PROCEDURE;

FinishGather: PUBLIC PROCEDURE;

Expand: PUBLIC PROCEDURE[symb:Symbol];

END.