DefaultTestImpl.mesa
Russ Atkinson, May 2, 1983 4:58 pm
DIRECTORY
DefaultTest;
DefaultTestImpl: CEDAR PROGRAM
EXPORTS DefaultTest
= BEGIN OPEN DefaultTest;
TestRecord: PUBLIC PROC [record: Record] RETURNS [REF Record] = {
RETURN [NEW[Record ← record]];
};
TestCompiledRecord: PUBLIC PROC RETURNS [REF Record] = {
record: Record;
RETURN [NEW[Record ← record]];
};
END.