The R Project SVN R

Rev

Rev 89586 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 89586 Rev 89593
Line 57... Line 57...
57 
    }
 57 
    }
58 
    if(isInteger(val)) {
 58 
    if(isInteger(val)) {
59 
	if (ALTREP(val) && ! R_is_compact_intseq(val)) {
 59 
	if (ALTREP(val) && ! R_is_compact_intseq(val)) {
60 
	    // accept an ALTREP as is, but for now still allow compact
 60 
	    // accept an ALTREP as is, but for now still allow compact
61 
	    // 1:n to be converted to internal compact form
 61 
	    // 1:n to be converted to internal compact form
62 
	    PROTECT(val);
 62 
	    PROTECT(vec);
63 
	    PROTECT(val);
 63 
	    PROTECT(val);
64 
	    ans =  installAttrib(vec, R_RowNamesSymbol, val);
 64 
	    ans =  installAttrib(vec, R_RowNamesSymbol, val);
65 
	    UNPROTECT(2); /* vec, val */
 65 
	    UNPROTECT(2); /* vec, val */
66 
	    return ans;
 66 
	    return ans;
67 
	}
 67 
	}