The R Project SVN R

Rev

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

Rev 26136 Rev 26648
Line 1210... Line 1210...
1210 
    if(current == NEEDS_RESET) {
 1210 
    if(current == NEEDS_RESET) {
1211 
	/* get the methods and store them in the in-core primitive
 1211 
	/* get the methods and store them in the in-core primitive
1212 
	   method table.	The entries will be preserved via
 1212 
	   method table.	The entries will be preserved via
1213 
	   R_preserveobject, so later we can just grab mlist from
 1213 
	   R_preserveobject, so later we can just grab mlist from
1214 
	   prim_mlist */
 1214 
	   prim_mlist */
- 
 
 1215 
	do_set_prim_method(op, "suppressed", R_NilValue, mlist);
1215 
	PROTECT(mlist = get_primitive_methods(op, rho));
 1216 
	PROTECT(mlist = get_primitive_methods(op, rho));
1216 
	do_set_prim_method(op, "set", R_NilValue, mlist);
 1217 
	do_set_prim_method(op, "set", R_NilValue, mlist);
1217 
	current = prim_methods[offset]; /* as revised by do_set_prim_method */
 1218 
	current = prim_methods[offset]; /* as revised by do_set_prim_method */
1218 
	UNPROTECT(1);
 1219 
	UNPROTECT(1);
1219 
    }
 1220 
    }