The R Project SVN R

Rev

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

Rev 8315 Rev 8386
Line 207... Line 207...
207 
	    REprintf("Error during wrapup \n");
 207 
	    REprintf("Error during wrapup \n");
208 
	jump_now();
 208 
	jump_now();
209 
    }
 209 
    }
210 
 
 210 
 
211 
    if(call != R_NilValue ) {
 211 
    if(call != R_NilValue ) {
- 
 
 212 
	inError = 1;
212 
	dcall = CHAR(STRING(deparse1(call, 0))[0]);
 213 
	dcall = CHAR(STRING(deparse1(call, 0))[0]);
213 
	sprintf(errbuf, "Error in %s : ", dcall);
 214 
	sprintf(errbuf, "Error in %s : ", dcall);
214 
	if (strlen(dcall) > LONGCALL) strcat(errbuf, "\n	");
 215 
	if (strlen(dcall) > LONGCALL) strcat(errbuf, "\n	");
215 
    }
 216 
    }
216 
    else
 217 
    else