perm filename TSTM1.SAI[CMU,AIL] blob sn#113936 filedate 1974-08-03 generic text, type T, neo UTF8
00100	
00200	BEGIN "TEST"
00300	REQUIRE "⊂⊃<>" DELIMITERS;
00400	require "
00450	This shows a FORLC/MACRO problem:  if the parens around the 'list'
00500	are passed in by the macro parameter, then all is well.  If they are
00600	explicitly put it, the compiler will generate an err msg." message;
00700	INTEGER A,B,C,D,E;
00800	DEFINE TSTMAC(LIST)=⊂
00900		FORLC N←LIST DOC ⊂
01000		N←0;	⊃
01100		ENDC
01200	⊃ ;
01300	TSTMAC(<(A,B,C)>);
01400	REDEFINE TSTMAC(LIST)=⊂
01500		FORLC N←(LIST) DOC ⊂
01600		N←0;	⊃
01700		ENDC
01800	⊃ ;
01900	TSTMAC(<A,B,C>);
02000	END "TEST"