The R Project SVN R

Rev

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

Rev 25728 Rev 26038
Line 555... Line 555...
555 
	t = getAttrib(s, R_SourceSymbol);
 555 
	t = getAttrib(s, R_SourceSymbol);
556 
	if (isNull(t))
 556 
	if (isNull(t))
557 
	    t = deparse1(s, 0);
 557 
	    t = deparse1(s, 0);
558 
	for (i = 0; i < LENGTH(t); i++)
 558 
	for (i = 0; i < LENGTH(t); i++)
559 
	    Rprintf("%s\n", CHAR(STRING_ELT(t, i)));
 559 
	    Rprintf("%s\n", CHAR(STRING_ELT(t, i)));
- 
 
 560 
#ifdef BYTECODE
- 
 
 561 
	if (TYPEOF(s) == CLOSXP && isByteCode(BODY(s)))
- 
 
 562 
	    Rprintf("<bytecode: %p>\n", BODY(s));
- 
 
 563 
#endif
560 
	if (TYPEOF(s) == CLOSXP) t = CLOENV(s);
 564 
	if (TYPEOF(s) == CLOSXP) t = CLOENV(s);
561 
	else t = R_GlobalEnv;
 565 
	else t = R_GlobalEnv;
562 
	if (t != R_GlobalEnv)
 566 
	if (t != R_GlobalEnv)
563 
	    PrintEnvir(t);
 567 
	    PrintEnvir(t);
564 
	break;
 568 
	break;