The R Project SVN R

Rev

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

Rev 51007 Rev 51245
Line 706... Line 706...
706 
   the "recursive" argument is FALSE by default for "c" and TRUE for
 706 
   the "recursive" argument is FALSE by default for "c" and TRUE for
707 
   "unlist".  In addition, "c" takes ... while "unlist" takes a single
 707 
   "unlist".  In addition, "c" takes ... while "unlist" takes a single
708 
   argument.
 708 
   argument.
709 
*/
 709 
*/
710 
 
 710 
 
- 
 
 711 
/* This is a primitive SPECIALSXP */
711 
SEXP attribute_hidden do_c(SEXP call, SEXP op, SEXP args, SEXP env)
 712 
SEXP attribute_hidden do_c(SEXP call, SEXP op, SEXP args, SEXP env)
712 
{
 713 
{
713 
    SEXP ans;
 714 
    SEXP ans;
714 
 
 715 
 
715 
    checkArity(op, args);
 716 
    checkArity(op, args);
Line 968... Line 969...
968 
    return ans;
 969 
    return ans;
969 
} /* do_unlist */
 970 
} /* do_unlist */
970 
 
 971 
 
971 
 
 972 
 
972 
/* cbind(deparse.level, ...) and rbind(deparse.level, ...) : */
 973 
/* cbind(deparse.level, ...) and rbind(deparse.level, ...) : */
- 
 
 974 
/* This is a special .Internal */
973 
SEXP attribute_hidden do_bind(SEXP call, SEXP op, SEXP args, SEXP env)
 975 
SEXP attribute_hidden do_bind(SEXP call, SEXP op, SEXP args, SEXP env)
974 
{
 976 
{
975 
    SEXP a, t, obj, classlist, classname, method, classmethod, rho;
 977 
    SEXP a, t, obj, classlist, classname, method, classmethod, rho;
976 
    const char *generic;
 978 
    const char *generic;
977 
    int mode, deparse_level;
 979 
    int mode, deparse_level;