The R Project SVN R

Rev

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

Rev 77043 Rev 77452
Line 512... Line 512...
512 
 
 512 
 
513 
    if (do_usemethod_formals == NULL)
 513 
    if (do_usemethod_formals == NULL)
514 
	do_usemethod_formals = allocFormalsList2(install("generic"),
 514 
	do_usemethod_formals = allocFormalsList2(install("generic"),
515 
						 install("object"));
 515 
						 install("object"));
516 
 
 516 
 
517 
    PROTECT(argList = matchArgs(do_usemethod_formals, args, call));
 517 
    PROTECT(argList = matchArgs_NR(do_usemethod_formals, args, call));
518 
    if (CAR(argList) == R_MissingArg)
 518 
    if (CAR(argList) == R_MissingArg)
519 
	errorcall(call, _("there must be a 'generic' argument"));
 519 
	errorcall(call, _("there must be a 'generic' argument"));
520 
    else
 520 
    else
521 
	PROTECT(generic = eval(CAR(argList), env));
 521 
	PROTECT(generic = eval(CAR(argList), env));
522 
    if(!isString(generic) || LENGTH(generic) != 1)
 522 
    if(!isString(generic) || LENGTH(generic) != 1)