The R Project SVN R

Rev

Rev 33297 | Rev 35291 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 33297 Rev 33412
Line 1634... Line 1634...
1634 
	if (cptr->callflag == CTXT_RETURN && cptr->cloenv == s)
 1634 
	if (cptr->callflag == CTXT_RETURN && cptr->cloenv == s)
1635 
	    break;
 1635 
	    break;
1636 
	cptr = cptr->nextcontext;
 1636 
	cptr = cptr->nextcontext;
1637 
    }
 1637 
    }
1638 
    if (cptr == NULL)
 1638 
    if (cptr == NULL)
1639 
	error(_("Recall called from outside a closure"));
 1639 
	error(_("'Recall' called from outside a closure"));
1640 
    if( TYPEOF(CAR(cptr->call)) == SYMSXP)
 1640 
    if( TYPEOF(CAR(cptr->call)) == SYMSXP)
1641 
	PROTECT(s = findFun(CAR(cptr->call), cptr->sysparent));
 1641 
	PROTECT(s = findFun(CAR(cptr->call), cptr->sysparent));
1642 
    else
 1642 
    else
1643 
	PROTECT(s = eval(CAR(cptr->call), cptr->sysparent));
 1643 
	PROTECT(s = eval(CAR(cptr->call), cptr->sysparent));
1644 
    ans = applyClosure(cptr->call, s, args, cptr->sysparent, R_NilValue);
 1644 
    ans = applyClosure(cptr->call, s, args, cptr->sysparent, R_NilValue);