rem: } else if (y->tval & STR) setsval(fp->retval, getsval(y));
add: } else if (y->tval & STR) (void) setsval(fp->retval, getsval(y));
context: Cell *jump(a, n) Node **a;{	register Cell *y;	switch (n) {	case EXIT:		if (a[0] != NULL) {			y = execute(a[0]);			errorflag = getfval(y);			tempfree(y, "");		}		longjmp(env, 1);	case RETURN:		if (a[0] != NULL) {			y = execute(a[0]);			if ((y->tval & (STR|NUM)) == (STR|NUM)) {				setsval(fp->retval, getsval(y));				fp->retval->fval = getfval(y);				fp->retval->tval |= NUM;			}			else if (y->tval & STR)				setsval(fp->retval, getsval(y));			else if (y->tval & NUM)				setfval(fp->retval, getfval(y));			tempfree(y, "");		}		return(jret);	case NEXT:		return(jnext);	case BREAK:		return(jbreak);	case CONTINUE:		return(jcont);	default:	/* can't happen */		ERROR "illegal jump type %d", n FATAL;	}}