--File: JaMStringDefs.mesa
--Written by: John Warnock,
--Last changed by Doug Wyatt, March 29, 1980 1:45 PM

DIRECTORY
JaMMasterDefs: FROM "JaMMasterDefs" USING [Object];

JaMStringDefs: DEFINITIONS =
BEGIN OPEN JaMMasterDefs;

JaMString: PROGRAM;

Relation: TYPE = {equal,less,greater};
StringCompare: PROCEDURE [s1,s2:StringType Object] RETURNS[r:Relation];

END.