--	NutsDictDefs.mesa
-- Keep correspondence between sequential definition index and ObjectName
--	January 8, 1982  8:43 AM by Pasco

DIRECTORY

IntStorageDefs: FROM "IntStorageDefs" USING [ObjectName];

NutsDictDefs: DEFINITIONS =

	BEGIN

	AllocateDict: PUBLIC PROCEDURE [entries: CARDINAL];

	Record: PUBLIC PROCEDURE [number: CARDINAL, symbol: IntStorageDefs.ObjectName];

	Lookup: PUBLIC PROCEDURE [symbol: IntStorageDefs.ObjectName] RETURNS [number: CARDINAL];

	What: PUBLIC PROCEDURE [number: CARDINAL] RETURNS [symbol: IntStorageDefs.ObjectName];

	FreeDict: PUBLIC PROCEDURE;

END.z20461(635)\f8 133b9B61b12B26b12B41b7B76b6B85b4B85b8B