The R Project SVN R

Rev

Rev 88067 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 88067 Rev 88410
Line 902... Line 902...
902 
	    SETCAR(t, CAR(x));
 902 
	    SETCAR(t, CAR(x));
903 
	    SET_TAG(t, TAG(x));
 903 
	    SET_TAG(t, TAG(x));
904 
	}
 904 
	}
905 
	break;
 905 
	break;
906 
    case VECSXP:
 906 
    case VECSXP:
- 
 
 907 
    case EXPRSXP:
907 
	for (i = 0; i < len; i++)
 908 
	for (i = 0; i < len; i++)
908 
	    if (i < lenx) {
 909 
	    if (i < lenx) {
909 
		SET_VECTOR_ELT(rval, i, VECTOR_ELT(x, i));
 910 
		SET_VECTOR_ELT(rval, i, VECTOR_ELT(x, i));
910 
		if (xnames != R_NilValue)
 911 
		if (xnames != R_NilValue)
911 
		    SET_STRING_ELT(names, i, STRING_ELT(xnames, i));
 912 
		    SET_STRING_ELT(names, i, STRING_ELT(xnames, i));
Line 938... Line 939...
938 
}
 939 
}
939 
 
 940 
 
940 
 
 941 
 
941 
attribute_hidden SEXP do_lengthgets(SEXP call, SEXP op, SEXP args, SEXP rho)
 942 
attribute_hidden SEXP do_lengthgets(SEXP call, SEXP op, SEXP args, SEXP rho)
942 
{
 943 
{
943 
    SEXP x, ans;
 - 
 
944 
 
 - 
 
945 
    checkArity(op, args);
 944 
    checkArity(op, args);
946 
    check1arg(args, call, "x");
 945 
    check1arg(args, call, "x");
947 
 
 946 
 
948 
    x = CAR(args);
 947 
    SEXP ans, x = CAR(args);
949 
 
 948 
 
950 
    /* DispatchOrEval internal generic: length<- */
 949 
    /* DispatchOrEval internal generic: length<- */
951 
    if(isObject(x) && DispatchOrEval(call, op, "length<-", args,
 950 
    if(isObject(x) && DispatchOrEval(call, op, "length<-", args,
952 
				     rho, &ans, 0, 1))
 951 
				     rho, &ans, 0, 1))
953 
	return(ans);
 952 
	return(ans);