perm filename ITMS.SAI[CMU,AIL] blob
sn#123321 filedate 1974-10-04 generic text, type T, neo UTF8
00010 COMMENT
00100 **** Mail from BRILL (A616DB01)
00200 at 1:49 P.M. on Friday, October 4, 1974:
00300
00400 SAIL:
00500 THERE APPEAR TO BE SOME LEAP PROBLEMS IN NEW SAIL. FOR EXAMPLE
00600 THE FOLLOWING PROGRAM BLOWS UP DURING EXECUTION:
00650 ;
00700 BEGIN "ITMS"
00800 REQUIRE 50 NEW!ITEMS;
00900 STRING ITEMVAR FOO;
01000 FOO ← NEW;
01100 DATUM (FOO) ← "BAZ"
01200 END;
01250 IFCR FALSE THENC
01300 HOWEVER,
01400 FOO ← NEW ("BAZ");
01500 IS ALRIGHT. IN A SIMILAR VEIN,
01600 BEGIN
01700 REQUIRE 50 NEW!ITEMS;
01800 INTEGER ITEMVAR FOO;
01900 FOO ← NEW;
02000 DATUM (FOO) ← 2;
02100 OUTSTR (CVS (TYPEIT (FOO)))
02200 END;
02300 RUNS OK BUT PRINT "1" - IT THINKS FOO IS UNTYPED. WITH
02400 FOO ← NEW (2);
02500 THOUGH IT GETS IT RIGHT.
02600 RSVP THANKS, DAVE BRILL
02700 ENDC