12 lines
273 B
Perl
12 lines
273 B
Perl
|
/* e_27_7.t: Error of rescanning. */
|
||
|
|
|
||
|
|
#define sub( x, y) (x - y)
|
||
|
|
|
||
|
|
/* 27.7: */
|
||
|
|
#define TWO_TOKENS a,b
|
||
|
|
#define SUB( x, y) sub( x, y)
|
||
|
|
/* Too many arguments error while rescanning after once replaced to:
|
||
|
|
sub( a,b, 1); */
|
||
|
|
SUB( TWO_TOKENS, 1);
|
||
|
|
|