-- File: DisjointJoinDefs.mesa
-- Written by Martin Newell/Dan Fitzpatrick August 1981
-- Last edited: August 6, 1981 8:13 PM

DIRECTORY

DisjointTypes: FROM "DisjointTypes" USING [Symbol];

DisjointJoinDefs: DEFINITIONS =
BEGIN
OPEN DisjointTypes;

Join: PUBLIC PROCEDURE[symbol: Symbol];

END.