The R Project SVN R

SEXP attribute_hidden do_addGlobHands(SEXP call, SEXP op,SEXP args, SEXP rho)

{

    SEXP oldstk = R_ToplevelContext->handlerstack;

    R_HandlerStack = R_NilValue;

    do_addCondHands(call, op, args, rho);

    /* This is needed to handle intermediate contexts that would

       restore the handler stack to the value when begincontext was

       called. This function should only be called in a context where

       there are no handlers on the stack. */

#ifdef DODO

    for (RCNTXT *cptr = R_GlobalContext;

	 cptr != R_ToplevelContext;

	 cptr = cptr->nextcontext)

	if (cptr->handlerstack == R_NilValue)

	    cptr->handlerstack = R_HandlerStack;

#endif

    for (RCNTXT *cptr = R_GlobalContext;

	 cptr != R_ToplevelContext;

	 cptr = cptr->nextcontext)

	if (cptr->handlerstack == oldstk)

	    cptr->handlerstack = R_HandlerStack;

	else error("should not be called with handlers on the stack");

    R_ToplevelContext->handlerstack = R_HandlerStack;

    return NULL;

}