The R Project SVN R

Rev

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

Rev 45667 Rev 46580
Line 1781... Line 1781...
1781 
{
 1781 
{
1782 
    checkArity(op, args);
 1782 
    checkArity(op, args);
1783 
    R_PrintDeferredWarnings();
 1783 
    R_PrintDeferredWarnings();
1784 
    return R_NilValue;
 1784 
    return R_NilValue;
1785 
}
 1785 
}
- 
 
 1786 
 
- 
 
 1787 
SEXP attribute_hidden
- 
 
 1788 
do_interruptsSuspended(SEXP call, SEXP op, SEXP args, SEXP env)
- 
 
 1789 
{
- 
 
 1790 
    int orig_value = R_interrupts_suspended;
- 
 
 1791 
    if (args != R_NilValue)
- 
 
 1792 
	R_interrupts_suspended = asLogical(CAR(args));
- 
 
 1793 
    return ScalarLogical(orig_value);
- 
 
 1794 
}
- 
 
 1795
- 
 
 1796