anchor.diff:  	 * a grammar element containing it
   	 */
   	register p_term		q;
  -	
  +
   	if (! t_cnt) {
   		t_cnt = 50;
   		t_list = (p_term) alloc(50 * sizeof(t_term));
  
positive.code: 	  ]?
  	  productions(&p1)
  	  ']'		{
  	  			mkterm(p1,t,ln,pres);
  			}
  	|
  	  C_IDENT	{	pe = search(UNKNOWN,lextoken.t_string,BOTH);
  				*pres = *pe;
  	 		}
  	  [ params(0)	{	if (nparams > 14) {
  					error(linecount,"Too many parameters");
  				} else	g_setnpar(pres,nparams+1);
  
negative.code: 	else	sorder = po;
  	return po;
  }
  
  p_init()
  {
  	alt_table = (p_gram )alloc(ALTINCR*sizeof(t_gram));
  	n_alts = 0;
  	max_alts = ALTINCR;
  	rule_table = (p_gram )alloc(RULEINCR*sizeof(t_gram));
  	n_rules = 0;
  	max_rules = RULEINCR;
  }
  
  }
  