The R Project SVN R

Rev

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

Rev 70779 Rev 77216
Line 73... Line 73...
73 
 
 73 
 
74 
    if (n == n2) {
 74 
    if (n == n2) {
75 
        if (TYPEOF(s2) == type && NO_REFERENCES(s2)) {
 75 
        if (TYPEOF(s2) == type && NO_REFERENCES(s2)) {
76 
	    if (ATTRIB(s2) != R_NilValue)
 76 
	    if (ATTRIB(s2) != R_NilValue)
77 
		/* need to remove 'names' attribute if present to
 77 
		/* need to remove 'names' attribute if present to
78 
		   match what copyMostAttrib does. copyMostAttributes
 78 
		   match what copyMostAttrib does. copyMostAttrib()
79 
		   also skips 'dim' and 'dimnames' but those, here
 79 
		   also skips 'dim' and 'dimnames' but those, here
80 
		   since those, if present, will be replaced by
 80 
		   since those, if present, will be replaced by
81 
		   attribute cleanup code in R_Binary) */
 81 
		   attribute cleanup code in R_Binary) */
82 
		setAttrib(s2, R_NamesSymbol, R_NilValue);
 82 
		setAttrib(s2, R_NamesSymbol, R_NilValue);
83 
            return s2;
 83 
            return s2;