The R Project SVN R

Rev

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

Rev 24615 Rev 26040
Line 127... Line 127...
127 
	}
 127 
	}
128 
	return(y == R_NilValue);
 128 
	return(y == R_NilValue);
129 
    }
 129 
    }
130 
    case CLOSXP:
 130 
    case CLOSXP:
131 
	return(compute_identical(FORMALS(x), FORMALS(y)) &&
 131 
	return(compute_identical(FORMALS(x), FORMALS(y)) &&
132 
	       compute_identical(BODY(x), BODY(y)) &&
 132 
	       compute_identical(BODY_EXPR(x), BODY_EXPR(y)) &&
133 
	       CLOENV(x) == CLOENV(y) ? TRUE : FALSE);
 133 
	       CLOENV(x) == CLOENV(y) ? TRUE : FALSE);
134 
    case SPECIALSXP:
 134 
    case SPECIALSXP:
135 
    case BUILTINSXP:
 135 
    case BUILTINSXP:
136 
	return(PRIMOFFSET(x) == PRIMOFFSET(y) ? TRUE : FALSE);
 136 
	return(PRIMOFFSET(x) == PRIMOFFSET(y) ? TRUE : FALSE);
137 
    case ENVSXP:
 137 
    case ENVSXP: