The R Project SVN R

Rev

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

Rev 75677 Rev 77452
Line 633... Line 633...
633 
    */
 633 
    */
634 
    if (do_rep_formals == NULL)
 634 
    if (do_rep_formals == NULL)
635 
	do_rep_formals = allocFormalsList5(install("x"), install("times"),
 635 
	do_rep_formals = allocFormalsList5(install("x"), install("times"),
636 
					   install("length.out"),
 636 
					   install("length.out"),
637 
					   install("each"), R_DotsSymbol);
 637 
					   install("each"), R_DotsSymbol);
638 
    PROTECT(args = matchArgs(do_rep_formals, args, call));
 638 
    PROTECT(args = matchArgs_NR(do_rep_formals, args, call));
639 
 
 639 
 
640 
    x = CAR(args);
 640 
    x = CAR(args);
641 
    /* supported in R 2.15.x */
 641 
    /* supported in R 2.15.x */
642 
    if (TYPEOF(x) == LISTSXP)
 642 
    if (TYPEOF(x) == LISTSXP)
643 
	errorcall(call, "replication of pairlists is defunct");
 643 
	errorcall(call, "replication of pairlists is defunct");
Line 795... Line 795...
795 
    */
 795 
    */
796 
    if (do_seq_formals == NULL)
 796 
    if (do_seq_formals == NULL)
797 
	do_seq_formals = allocFormalsList6(install("from"), install("to"),
 797 
	do_seq_formals = allocFormalsList6(install("from"), install("to"),
798 
					   install("by"), install("length.out"),
 798 
					   install("by"), install("length.out"),
799 
					   install("along.with"), R_DotsSymbol);
 799 
					   install("along.with"), R_DotsSymbol);
800 
    PROTECT(args = matchArgs(do_seq_formals, args, call));
 800 
    PROTECT(args = matchArgs_NR(do_seq_formals, args, call));
801 
 
 801 
 
802 
    from = CAR(args); args = CDR(args);
 802 
    from = CAR(args); args = CDR(args);
803 
    to   = CAR(args); args = CDR(args);
 803 
    to   = CAR(args); args = CDR(args);
804 
    by   = CAR(args); args = CDR(args);
 804 
    by   = CAR(args); args = CDR(args);
805 
    len  = CAR(args); args = CDR(args);
 805 
    len  = CAR(args); args = CDR(args);