View | Details | Raw Unified | Return to bug 17174
Collapse All | Expand All

(-)apply.c (-2 / +2 lines)
Lines 1-6 Link Here
1
/*
1
/*
2
 *  R : A Computer Language for Statistical Data Analysis
2
 *  R : A Computer Language for Statistical Data Analysis
3
 *  Copyright (C) 2000-2015  The R Core Team
3
 *  Copyright (C) 2000-2016  The R Core Team
4
 *
4
 *
5
 *  This program is free software; you can redistribute it and/or modify
5
 *  This program is free software; you can redistribute it and/or modify
6
 *  it under the terms of the GNU General Public License as published by
6
 *  it under the terms of the GNU General Public License as published by
Lines 136-142 Link Here
136
	/* Build call: FUN(XX[[<ind>]], ...) */
136
	/* Build call: FUN(XX[[<ind>]], ...) */
137
137
138
	SEXP isym = install("i");
138
	SEXP isym = install("i");
139
	PROTECT(ind = allocVector(INTSXP, 1));
139
	PROTECT(ind = allocVector(realIndx ? REALSXP : INTSXP, 1));
140
	defineVar(isym, ind, rho);
140
	defineVar(isym, ind, rho);
141
	SET_NAMED(ind, 1);
141
	SET_NAMED(ind, 1);
142
142

Return to bug 17174