The R Project SVN R

Rev

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

Rev 63181 Rev 63223
Line 403... Line 403...
403 
    if (!evaluate) opts |= DELAYPROMISES;
 403 
    if (!evaluate) opts |= DELAYPROMISES;
404 
 
 404 
 
405 
    PROTECT(o = objs = allocList(nobjs));
 405 
    PROTECT(o = objs = allocList(nobjs));
406 
 
 406 
 
407 
    for (j = 0, nout = 0; j < nobjs; j++, o = CDR(o)) {
 407 
    for (j = 0, nout = 0; j < nobjs; j++, o = CDR(o)) {
408 
	SET_TAG(o, install(translateChar(STRING_ELT(names, j))));
 408 
	SET_TAG(o, installTrChar(STRING_ELT(names, j)));
409 
	SETCAR(o, findVar(TAG(o), source));
 409 
	SETCAR(o, findVar(TAG(o), source));
410 
	if (CAR(o) == R_UnboundValue)
 410 
	if (CAR(o) == R_UnboundValue)
411 
	    warning(_("object '%s' not found"), EncodeChar(PRINTNAME(TAG(o))));
 411 
	    warning(_("object '%s' not found"), EncodeChar(PRINTNAME(TAG(o))));
412 
	else nout++;
 412 
	else nout++;
413 
    }
 413 
    }