The R Project SVN R

Rev

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

Rev 2 Rev 300
Line 107... Line 107...
107 
		LEVELS(ans) = LEVELS(vals);
 107 
		LEVELS(ans) = LEVELS(vals);
108 
		copyVector(ans, vals);
 108 
		copyVector(ans, vals);
109 
		UNPROTECT(2);
 109 
		UNPROTECT(2);
110 
		return ans;
 110 
		return ans;
111 
	}
 111 
	}
112 
	else
 - 
 
113 
		error("bad arguments to array\n");
 112 
	else error("bad arguments to array\n");
114 
	/*NOTREACHED*/
 - 
 
115 
}
 113 
}
116 
 
 114 
 
117 
SEXP allocArray(SEXPTYPE mode, SEXP dims)
 115 
SEXP allocArray(SEXPTYPE mode, SEXP dims)
118 
{
 116 
{
119 
	SEXP array;
 117 
	SEXP array;