<>Mesaport>compiler>Cmplr6Defs5.mesa
Created on 29-Apr-87 15:31:55
MW 29-Apr-87 15:31:55
Defs module imports another defs module
Cmplr6Defs5:
DEFINITIONS
IMPORTS Cmplr6Defs6 =
BEGIN
var1: TYPE [2];
Proc1:
PROCEDURE [x:
INTEGER, y:
INTEGER]
RETURNS [
INTEGER] =
INLINE
BEGIN
var2: INTEGER;
var2 ¬ Cmplr6Defs6.Proc1[x, y];
IF x > y THEN RETURN[1] ELSE RETURN[var2];
END;
END..