-- JaMStringDefs.mesa
-- Written by: John Warnock,
-- Last changed by Doug Wyatt, February 10, 1981 6:57 PM

DIRECTORY
JaMMasterDefs USING [Object];

JaMStringDefs: DEFINITIONS = {
OPEN JaMMasterDefs;

Relation: TYPE = {equal,less,greater};

StringCompare: PROCEDURE[s1,s2: StringType Object] RETURNS[r: Relation];

JaMString: PROGRAM;

}.