-- JaMArrayDefs.mesa
-- Written by: John Warnock,March 2, 1979
-- Last changed by Doug Wyatt, February 10, 1981  3:27 PM

DIRECTORY
	JaMMasterDefs USING [Object, Stack];

JaMArrayDefs: DEFINITIONS = {
OPEN JaMMasterDefs;

Array: PROCEDURE;
ArrayPut: PROCEDURE;
ArrayGet: PROCEDURE;
ArrayPart: PROCEDURE;
ArrayAtom: PROCEDURE[aob:ArrayType Object,stk:Stack] RETURNS[BOOLEAN];
ArrayStore: PROCEDURE;
-- expects opstk: (ob0, ob1, ... , obn-1, array)  array of length n
-- returns opstk: (array)
ArrayLoad: PROCEDURE;
-- expects opstk: (array)  array of length n
-- returns opstk: (array[0], array[1], ... , array[n-1], array)

JaMArray: PROGRAM;

}.(670)