Lines Matching defs:fcn
188 Cell *args[NARGS], *oargs[NARGS], *y, *z, *fcn;
191 fcn = execute(a[0]); /* the function itself */
192 s = fcn->nval;
193 if (!isfunc(fcn))
205 ndef = (int)fcn->fval; /* args in defn */
247 fp->fcncell = fcn;
254 y = execute((Node *)(fcn->sval)); /* execute body */
277 tempfree(fcn, "call.fcn");
281 tempfree(y, "fcn ret"); /* this can free twice! */