The R Project SVN R

Rev

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

Rev 37720 Rev 37725
Line 172... Line 172...
172 
{
 172 
{
173 
    SEXP val;
 173 
    SEXP val;
174 
 
 174 
 
175 
    if (R_UseNamespaceDispatch) {
 175 
    if (R_UseNamespaceDispatch) {
176 
	if (TYPEOF(callrho) == NILSXP) {
 176 
	if (TYPEOF(callrho) == NILSXP) {
177 
	    warning(_("use of NULL environment is deprecated"));
 177 
	    error(_("use of NULL environment is defunct"));
178 
	    callrho = R_BaseEnv;
 178 
	    callrho = R_BaseEnv;
179 
	} else
 179 
	} else
180 
	if (TYPEOF(callrho) != ENVSXP)
 180 
	if (TYPEOF(callrho) != ENVSXP)
181 
	    error(_("bad generic call environment"));
 181 
	    error(_("bad generic call environment"));
182 
	if (TYPEOF(defrho) == NILSXP) {
 182 
	if (TYPEOF(defrho) == NILSXP) {
183 
	    warning(_("use of NULL environment is deprecated"));
 183 
	    error(_("use of NULL environment is defunct"));
184 
	    defrho = R_BaseEnv;
 184 
	    defrho = R_BaseEnv;
185 
	} else
 185 
	} else
186 
	if (TYPEOF(defrho) != ENVSXP)
 186 
	if (TYPEOF(defrho) != ENVSXP)
187 
	    error(_("bad generic definition environment"));
 187 
	    error(_("bad generic definition environment"));
188 
	if (defrho == R_BaseEnv)
 188 
	if (defrho == R_BaseEnv)