The R Project SVN R

Rev

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

Rev 14608 Rev 14622
Line 453... Line 453...
453 
    if ( !R_Interactive && !haveHandler && inError ) {
 453 
    if ( !R_Interactive && !haveHandler && inError ) {
454 
	REprintf("Execution halted\n");
 454 
	REprintf("Execution halted\n");
455 
	R_CleanUp(SA_NOSAVE, 1, 0); /* quit, no save, no .Last, status=1 */
 455 
	R_CleanUp(SA_NOSAVE, 1, 0); /* quit, no save, no .Last, status=1 */
456 
    }
 456 
    }
457 
 
 457 
 
458 
    /* this is really dynamic state that should be managed as such */
 - 
 
459 
    R_SinkReset();
 - 
 
460 
 
 - 
 
461 
    PROTECT(s = allocList(nback));
 458 
    PROTECT(s = allocList(nback));
462 
    t = s;
 459 
    t = s;
463 
    for (c = R_GlobalContext ; c ; c = c->nextcontext)
 460 
    for (c = R_GlobalContext ; c ; c = c->nextcontext)
464 
	if (c->callflag & CTXT_FUNCTION ) {
 461 
	if (c->callflag & CTXT_FUNCTION ) {
465 
	    SETCAR(t, deparse1(c->call, 0));
 462 
	    SETCAR(t, deparse1(c->call, 0));