<>Mesaport>compiler>Cmplr6Defs2Impl.mesa
Created on 29-Apr-87 15:31:55
MW 29-Apr-87 15:31:55
Cmplr6Defs2 Implementor
DIRECTORY
Cmplr6Defs2;
Cmplr6Defs2Impl: PROGRAM EXPORTS Cmplr6Defs2 =
BEGIN
var1: PUBLIC INTEGER;
AddToVar: PUBLIC PROCEDURE [x: INTEGER, y: INTEGER] RETURNS [INTEGER] = {
y ¬ y + x; RETURN[y]};
Defs2Proc1: PUBLIC PROCEDURE [x: INTEGER ¬ -99] RETURNS [INTEGER] = {
RETURN[x * 2]; };
Defs2Proc2: PUBLIC PROCEDURE RETURNS [INTEGER] = {RETURN[Defs2Proc1[]]; };
END..