The R Project SVN R

Rev

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

Rev 15317 Rev 15390
Line 453... Line 453...
453
453
454 
SEXP vectorSubscript(int nx, SEXP s, int *stretch, AttrGetter dng,
 454 
SEXP vectorSubscript(int nx, SEXP s, int *stretch, AttrGetter dng,
455 
		     SEXP x)
455 
		     SEXP x)
456 
{
 456 
{
457 
    int ns;
 457 
    int ns;
458 
    SEXP ans, tmp;
 458 
    SEXP ans=R_NilValue, tmp;
459 
 
 459 
 
460 
    ns = length(s);
 460 
    ns = length(s);
461 
    /* special case for simple indices -- does not duplicate */
 461 
    /* special case for simple indices -- does not duplicate */
462 
    if (ns == 1 && TYPEOF(s) == INTSXP && ATTRIB(s) == R_NilValue) {
 462 
    if (ns == 1 && TYPEOF(s) == INTSXP && ATTRIB(s) == R_NilValue) {
463 
	int i = INTEGER(s)[0];
 463 
	int i = INTEGER(s)[0];