anchor.diff:  	  C_IDENT	{	pe = search(UNKNOWN,lextoken.t_string,BOTH);
   				*pres = *pe;
   			}
  -	  [ params	{	if (nparams > 15) {
  +	  [ params(0)	{	if (nparams > 15) {
   					error(linecount,"Too many parameters");
   				} else	g_setnpar(pres,nparams);
   				if (g_gettype(pres) == TERMINAL) {
  
positive.code: 		putc('\0',f);
  		fprintf(f,"# line %d \"%s\"\n", linecount,f_input);
  	}
  	if (level || flag) putc(ch1,f);
  	for (;;) {
  		ch = input();
  		if (ch == ch2) {
  
negative.code: 				p->n_lineno = linecount;
  				p->n_off = ftell(fact);
  			}
  	  [ params(1)	{	if (nparams > 0) {
  					p->n_flags |= PARAMS;
  					if (nparams > 15) {
  						error(linecount,"Too many parameters");
  