The R Project SVN R

Rev

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

Rev 6357 Rev 6363
Line 290... Line 290...
290 
	if (c->callflag == CTXT_RESTART) {
 290 
	if (c->callflag == CTXT_RESTART) {
291 
		inError=0;
 291 
		inError=0;
292 
		findcontext(CTXT_RESTART, c->cloenv, R_DollarSymbol);
 292 
		findcontext(CTXT_RESTART, c->cloenv, R_DollarSymbol);
293 
	}
 293 
	}
294 
    }
 294 
    }
295 
    if ( !R_Interactive && !haveHandler && inError )
 295 
    if ( !R_Interactive && !haveHandler && inError ) {
- 
 
 296 
	REprintf("Execution halted\n");
296 
	R_CleanUp(SA_NOSAVE, 1, 0); /* quit, no save, no .Last, status=1 */
 297 
	R_CleanUp(SA_NOSAVE, 1, 0); /* quit, no save, no .Last, status=1 */
297 
 
 298 
    }
298 
    if (R_Sinkfile) R_Outputfile = R_Sinkfile;
 299 
    if (R_Sinkfile) R_Outputfile = R_Sinkfile;
299 
    else R_Outputfile = R_Consolefile;
 300 
    else R_Outputfile = R_Consolefile;
300 
    PROTECT(s = allocList(nback));
 301 
    PROTECT(s = allocList(nback));
301 
    t = s;
 302 
    t = s;
302 
    for (c = R_GlobalContext ; c ; c = c->nextcontext)
 303 
    for (c = R_GlobalContext ; c ; c = c->nextcontext)