The R Project SVN R

Rev

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

Rev 14904 Rev 14977
Line 703... Line 703...
703 
void R_ReturnOrRestart(SEXP val, SEXP env, Rboolean restart)
 703 
void R_ReturnOrRestart(SEXP val, SEXP env, Rboolean restart)
704 
{
 704 
{
705 
    int mask;
 705 
    int mask;
706 
    RCNTXT *c;
 706 
    RCNTXT *c;
707 
 
 707 
 
708 
    if (R_BrowseLevel > 0)
 - 
 
709 
	mask = CTXT_BROWSER | CTXT_FUNCTION;
 708 
    mask = CTXT_BROWSER | CTXT_FUNCTION;
710 
    else
 - 
 
711 
	mask = CTXT_FUNCTION;
 - 
 
712 
 
 709 
 
713 
    for (c = R_GlobalContext; c; c = c->nextcontext) {
 710 
    for (c = R_GlobalContext; c; c = c->nextcontext) {
714 
	if (c->callflag & mask && c->cloenv == env)
 711 
	if (c->callflag & mask && c->cloenv == env)
715 
	    findcontext(mask, env, val);
 712 
	    findcontext(mask, env, val);
716 
	else if (restart && IS_RESTART_BIT_SET(c->callflag))
 713 
	else if (restart && IS_RESTART_BIT_SET(c->callflag))