The R Project SVN R

Rev

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

Rev 48524 Rev 48623
Line 1292... Line 1292...
1292 
	if (c->callflag & (CTXT_FUNCTION | CTXT_BUILTIN) ) {
 1292 
	if (c->callflag & (CTXT_FUNCTION | CTXT_BUILTIN) ) {
1293 
	    if (skip > 0)
 1293 
	    if (skip > 0)
1294 
		skip--;
 1294 
		skip--;
1295 
	    else {
 1295 
	    else {
1296 
		SETCAR(t, deparse1(c->call, 0, DEFAULTDEPARSE));
 1296 
		SETCAR(t, deparse1(c->call, 0, DEFAULTDEPARSE));
- 
 
 1297 
		if (c->srcref && !isNull(c->srcref))
- 
 
 1298 
		    setAttrib(CAR(t), R_SrcrefSymbol, duplicate(c->srcref));
1297 
		t = CDR(t);
 1299 
		t = CDR(t);
1298 
	    }
 1300 
	    }
1299 
	}
 1301 
	}
1300 
    UNPROTECT(1);
 1302 
    UNPROTECT(1);
1301 
    return s;
 1303 
    return s;