The R Project SVN R

Rev

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

Rev 77399 Rev 77452
Line 2352... Line 2352...
2352 
	   But this takes a little time.
 2352 
	   But this takes a little time.
2353 
	 */
 2353 
	 */
2354 
	if (do_anyNA_formals == NULL)
 2354 
	if (do_anyNA_formals == NULL)
2355 
	    do_anyNA_formals = allocFormalsList2(install("x"),
 2355 
	    do_anyNA_formals = allocFormalsList2(install("x"),
2356 
						 R_RecursiveSymbol);
 2356 
						 R_RecursiveSymbol);
2357 
	PROTECT(args = matchArgs(do_anyNA_formals, args, call));
 2357 
	PROTECT(args = matchArgs_NR(do_anyNA_formals, args, call));
2358 
	if(CADR(args) ==  R_MissingArg) SETCADR(args, ScalarLogical(FALSE));
 2358 
	if(CADR(args) ==  R_MissingArg) SETCADR(args, ScalarLogical(FALSE));
2359 
	ans = ScalarLogical(anyNA(call, op, args, rho));
 2359 
	ans = ScalarLogical(anyNA(call, op, args, rho));
2360 
	UNPROTECT(1);
 2360 
	UNPROTECT(1);
2361 
    }
 2361 
    }
2362 
    return ans;
 2362 
    return ans;
Line 2750... Line 2750...
2750 
    if (do_substitute_formals == NULL)
 2750 
    if (do_substitute_formals == NULL)
2751 
	do_substitute_formals = allocFormalsList2(install("expr"),
 2751 
	do_substitute_formals = allocFormalsList2(install("expr"),
2752 
						  install("env"));
 2752 
						  install("env"));
2753 
 
 2753 
 
2754 
    /* argument matching */
 2754 
    /* argument matching */
2755 
    PROTECT(argList = matchArgs(do_substitute_formals, args, call));
 2755 
    PROTECT(argList = matchArgs_NR(do_substitute_formals, args, call));
2756 
 
 2756 
 
2757 
    /* set up the environment for substitution */
 2757 
    /* set up the environment for substitution */
2758 
    if (CADR(argList) == R_MissingArg)
 2758 
    if (CADR(argList) == R_MissingArg)
2759 
	env = rho;
 2759 
	env = rho;
2760 
    else
 2760 
    else