The R Project SVN R

Rev

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

Rev 77342 Rev 77452
Line 141... Line 141...
141 
    if (do_onexit_formals == NULL)
 141 
    if (do_onexit_formals == NULL)
142 
        do_onexit_formals = allocFormalsList3(install("expr"),
 142 
        do_onexit_formals = allocFormalsList3(install("expr"),
143 
                                              install("add"),
 143 
                                              install("add"),
144 
                                              install("after"));
 144 
                                              install("after"));
145 
 
 145 
 
146 
    PROTECT(argList =  matchArgs(do_onexit_formals, args, call));
 146 
    PROTECT(argList =  matchArgs_NR(do_onexit_formals, args, call));
147 
    if (CAR(argList) == R_MissingArg) code = R_NilValue;
 147 
    if (CAR(argList) == R_MissingArg) code = R_NilValue;
148 
    else code = CAR(argList);
 148 
    else code = CAR(argList);
149 
 
 149 
 
150 
    if (CADR(argList) != R_MissingArg) {
 150 
    if (CADR(argList) != R_MissingArg) {
151 
	addit = asLogical(PROTECT(eval(CADR(args), rho)));
 151 
	addit = asLogical(PROTECT(eval(CADR(args), rho)));