The R Project SVN R

Rev

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

Rev 76362 Rev 76897
Line 1405... Line 1405...
1405 
	error(_("invalid '%s' argument"), "expand.dots");
 1405 
	error(_("invalid '%s' argument"), "expand.dots");
1406 
 
 1406 
 
1407 
    /* Get the formals and match the actual args */
 1407 
    /* Get the formals and match the actual args */
1408 
 
 1408 
 
1409 
    formals = FORMALS(b);
 1409 
    formals = FORMALS(b);
1410 
    PROTECT(actuals = duplicate(CDR(funcall)));
 1410 
    PROTECT(actuals = shallow_duplicate(CDR(funcall)));
1411 
 
 1411 
 
1412 
    /* If there is a ... symbol then expand it out in the sysp env
 1412 
    /* If there is a ... symbol then expand it out in the sysp env
1413 
       We need to take some care since the ... might be in the middle
 1413 
       We need to take some care since the ... might be in the middle
1414 
       of the actuals  */
 1414 
       of the actuals  */
1415 
 
 1415