The R Project SVN R

Rev

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

Rev 73256 Rev 77452
Line 228... Line 228...
228 
 
 228 
 
229 
    if (do_retracemem_formals == NULL)
 229 
    if (do_retracemem_formals == NULL)
230 
	do_retracemem_formals = allocFormalsList2(install("x"),
 230 
	do_retracemem_formals = allocFormalsList2(install("x"),
231 
						  R_PreviousSymbol);
 231 
						  R_PreviousSymbol);
232 
 
 232 
 
233 
    PROTECT(argList =  matchArgs(do_retracemem_formals, args, call));
 233 
    PROTECT(argList =  matchArgs_NR(do_retracemem_formals, args, call));
234 
    if(CAR(argList) == R_MissingArg) SETCAR(argList, R_NilValue);
 234 
    if(CAR(argList) == R_MissingArg) SETCAR(argList, R_NilValue);
235 
    if(CADR(argList) == R_MissingArg) SETCAR(CDR(argList), R_NilValue);
 235 
    if(CADR(argList) == R_MissingArg) SETCAR(CDR(argList), R_NilValue);
236 
 
 236 
 
237 
    object = CAR(argList);
 237 
    object = CAR(argList);
238 
    if (TYPEOF(object) == CLOSXP ||
 238 
    if (TYPEOF(object) == CLOSXP ||