perm filename EVAR.SAI[CMU,AIL] blob
sn#149240 filedate 1975-03-10 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 BEGIN "PROPS"
C00003 ENDMK
C⊗;
BEGIN "PROPS"
BOOLEAN SAFE ARRAY KS!AORD[0:10];
BOOLEAN SAFE ARRAY PRE!AORD[0:10];
RECURSIVE PROCEDURE SCHEDULER;
BEGIN "SCH"
ITEMVAR A,B,C;
BOOLEAN PROCEDURE FOO;
BEGIN
INTEGER DUM;
COMMENT DUM←PROPS(C); COMMENT IF THIS LINE IS IN, THEN IT COMPILES OK;
RETURN(IF A XOR B EQV C THEN KS!AORD[PROPS(C)] ELSE PRE!AORD[PROPS(C)]);
END;
END "SCH";
END "PROPS";