The R Project SVN R

Rev

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

Rev 25514 Rev 25517
Line 856... Line 856...
856 
	}
 856 
	}
857 
    UNPROTECT(1);
 857 
    UNPROTECT(1);
858 
    return s;
 858 
    return s;
859 
}
 859 
}
860 
 
 860 
 
- 
 
 861 
SEXP do_addTryHandlers(SEXP call, SEXP op, SEXP args, SEXP rho)
- 
 
 862 
{
- 
 
 863 
    checkArity(op, args);
- 
 
 864 
    if (R_GlobalContext == R_ToplevelContext ||
- 
 
 865 
	! R_GlobalContext->callflag & CTXT_FUNCTION)
- 
 
 866 
	errorcall(call, "not in a try context");
- 
 
 867 
    SET_RESTART_BIT_ON(R_GlobalContext->callflag);
- 
 
 868 
    return R_NilValue;
- 
 
 869 
}