-- 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. (635)\183b9B43b7B37b7B37b10B38b8B38b7B20b9B21b13B