The R Project SVN R

Rev

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

Rev 69111 Rev 72717
Line 102... Line 102...
102 
	    else
 102 
	    else
103 
		INTEGER(VECTOR_ELT(nindex, j))[0] = (int) counters[j];
 103 
		INTEGER(VECTOR_ELT(nindex, j))[0] = (int) counters[j];
104 
	}
 104 
	}
105 
	SEXP tmp = R_forceAndCall(fcall, m, rho);
 105 
	SEXP tmp = R_forceAndCall(fcall, m, rho);
106 
	if (MAYBE_REFERENCED(tmp))
 106 
	if (MAYBE_REFERENCED(tmp))
107 
	    tmp = duplicate(tmp);
 107 
	    tmp = lazy_duplicate(tmp);
108 
	SET_VECTOR_ELT(ans, i, tmp);
 108 
	SET_VECTOR_ELT(ans, i, tmp);
109 
    }
 109 
    }
110 
 
 110 
 
111 
    for (int j = 0; j < m; j++)
 111 
    for (int j = 0; j < m; j++)
112 
	if (counters[j] != lengths[j])
 112 
	if (counters[j] != lengths[j])