rem: char buf[RECSIZE];
add: uchar *buf;
context: Cell *intest(a, n) Node **a;{	register Cell *x, *ap, *k;	Node *p;	char buf[RECSIZE];	uchar *s;	ap = execute(a[1]);	/* array name */	if (!isarr(ap))		ERROR "%s is not an array", ap->nval FATAL;	buf[0] = 0;	for (p = a[0]; p; p = p->nnext) {		x = execute(p);	/* expr */		s = getsval(x);		strcat(buf, s);		tempfree(x, "");		if (p->nnext)			strcat(buf, *SUBSEP);	}	k = lookup(buf, (Array *) ap->sval);	tempfree(ap, "");	if (k == NULL)		return(false);	else		return(true);}