rem: for (n = 0; p != 0; p = p->nnext, n++) if (strcmp(((Cell *)(p->narg[0]))->nval, s) == 0) return n; return -1;
add: for (n = 0; p != 0; p = p->nnext, n++) { if (strcmp((char *)((Cell *)(p->narg[0]))->nval, (char *)s) == 0) { return (n); } } return (-1);
context: isarg(s)	/* is s in argument list for current function? */	uchar *s;{	extern Node *arglist;	Node *p = arglist;	int n;	for (n = 0; p != 0; p = p->nnext, n++)		if (strcmp(((Cell *)(p->narg[0]))->nval, s) == 0)			return n;	return -1;}