The R Project SVN R

Rev

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

Rev 70826 Rev 70853
Line 112... Line 112...
112 
    }
 112 
    }
113 
    else {
 113 
    else {
114 
	ax = ATTRIB(x); ay = ATTRIB(y);
 114 
	ax = ATTRIB(x); ay = ATTRIB(y);
115 
    }
 115 
    }
116 
    if (!ATTR_AS_SET) {
 116 
    if (!ATTR_AS_SET) {
- 
 
 117 
	PROTECT(ax);
- 
 
 118 
	PROTECT(ay);
117 
	if(!R_compute_identical(ax, ay, flags)) return FALSE;
 119 
	Rboolean idattr = R_compute_identical(ax, ay, flags);
- 
 
 120 
	UNPROTECT(2);
- 
 
 121 
	if(! idattr) return FALSE;
118 
    }
 122 
    }
119 
    /* Attributes are special: they should be tagged pairlists.  We
 123 
    /* Attributes are special: they should be tagged pairlists.  We
120 
       don't test them if they are not, and we do not test the order
 124 
       don't test them if they are not, and we do not test the order
121 
       if they are.
 125 
       if they are.
122 
 
 126