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