The R Project SVN R

(root)/trunk/src/main/objects.c @ 28362 – Rev 27710 → 30898



		    SEXP call;
		    PROTECT(call = allocList(2));
		    SETCAR(call, install("initMethodsDispatch"));
		    eval(call, R_GlobalEnv); /* only works with
						methods	 attached */
		    UNPROTECT(1);
	    }
    }
    return value;
}
 

Rev 27710	Rev 30898
Line 886...	Line 886...
886	`SEXP call;`	886	`SEXP call;`
887	`PROTECT(call = allocList(2));`	887	`PROTECT(call = allocList(2));`
888	`SETCAR(call, install("initMethodsDispatch"));`	888	`SETCAR(call, install("initMethodsDispatch"));`
889	`eval(call, R_GlobalEnv); /* only works with`	889	`eval(call, R_GlobalEnv); /* only works with`
890	`methods attached */`	890	`methods attached */`
-		891	`UNPROTECT(1);`
891	`}`	892	`}`
892	`}`	893	`}`
893	`return value;`	894	`return value;`
894	`}`	895	`}`
895		896