The R Project SVN R

Rev

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

Rev 66326 Rev 66328
Line 211... Line 211...
211 
    char buffer[21];
 211 
    char buffer[21];
212 
    static SEXP do_retracemem_formals = NULL;
 212 
    static SEXP do_retracemem_formals = NULL;
213 
 
 213 
 
214 
    if (do_retracemem_formals == NULL)
 214 
    if (do_retracemem_formals == NULL)
215 
        do_retracemem_formals = allocFormalsList2(install("x"),
 215 
        do_retracemem_formals = allocFormalsList2(install("x"),
216 
						  install("previous"));
 216 
						  R_PreviousSymbol);
217 
 
 217 
 
218 
    PROTECT(argList =  matchArgs(do_retracemem_formals, args, call));
 218 
    PROTECT(argList =  matchArgs(do_retracemem_formals, args, call));
219 
    if(CAR(argList) == R_MissingArg) SETCAR(argList, R_NilValue);
 219 
    if(CAR(argList) == R_MissingArg) SETCAR(argList, R_NilValue);
220 
    if(CADR(argList) == R_MissingArg) SETCAR(CDR(argList), R_NilValue);
 220 
    if(CADR(argList) == R_MissingArg) SETCAR(CDR(argList), R_NilValue);
221 
 
 221