rem: defn(v, vl, st)	 Cell *v; Node *st, *vl;
add: defn(Cell *v, Node *vl, Node *st)
context: defn(v, vl, st)	/* turn on FCN bit in definition */	Cell *v;	Node *st, *vl;	/* body of function, arglist */{	Node *p;	int n;	if (isarr(v)) {		ERROR "`%s' is an array name and a function name", v->nval SYNTAX;		return;	}	v->tval = FCN;	v->sval = (uchar *) st;	n = 0;	/* count arguments */	for (p = vl; p; p = p->nnext)		n++;	v->fval = n;	dprintf( ("defining func %s (%d args)\n", v->nval, n) );}