-- File DJExtDefs.mesa
-- Written by Martin Newell/Dan Fitzpatrick, July 1981
-- Last updated: August 7, 1981 3:59 PM

DIRECTORY
DisjointTypes: FROM "DisjointTypes" USING [Symbol];

DJExtDefs: DEFINITIONS =
BEGIN
OPEN DisjointTypes;

Extract: PUBLIC PROCEDURE[symbol: Symbol];

Flatten: PUBLIC PROCEDURE [symbol: Symbol];

ExtOutput: PUBLIC PROCEDURE [symbol: Symbol];

ExtCount: PUBLIC PROCEDURE [symbol: Symbol];

ToggleDebug: PUBLIC PROCEDURE;

ExtDebug: PUBLIC PROCEDURE;

PrintExtAlloc: PUBLIC PROCEDURE;

END.