The R Project SVN R

Rev

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

Rev 62220 Rev 63223
Line 85... Line 85...
85 
	SEXP tmp1 = PROTECT(lang3(R_Bracket2Symbol, Dots, VECTOR_ELT(mindex, j)));
 85 
	SEXP tmp1 = PROTECT(lang3(R_Bracket2Symbol, Dots, VECTOR_ELT(mindex, j)));
86 
	SEXP tmp2 = PROTECT(lang3(R_Bracket2Symbol, tmp1, VECTOR_ELT(nindex, j)));
 86 
	SEXP tmp2 = PROTECT(lang3(R_Bracket2Symbol, tmp1, VECTOR_ELT(nindex, j)));
87 
	REPROTECT(fcall = LCONS(tmp2, fcall), fi);
 87 
	REPROTECT(fcall = LCONS(tmp2, fcall), fi);
88 
	UNPROTECT(2);
 88 
	UNPROTECT(2);
89 
	if (named && CHAR(STRING_ELT(vnames, j))[0] != '\0')
 89 
	if (named && CHAR(STRING_ELT(vnames, j))[0] != '\0')
90 
	    SET_TAG(fcall, install(translateChar(STRING_ELT(vnames, j))));
 90 
	    SET_TAG(fcall, installTrChar(STRING_ELT(vnames, j)));
91 
    }
 91 
    }
92 
 
 92 
 
93 
    REPROTECT(fcall = LCONS(f, fcall), fi);
 93 
    REPROTECT(fcall = LCONS(f, fcall), fi);
94 
 
 94 
 
95 
    SEXP ans = PROTECT(allocVector(VECSXP, longest));
 95 
    SEXP ans = PROTECT(allocVector(VECSXP, longest));