The R Project SVN R

Rev

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

Rev 24539 Rev 26610
Line 268... Line 268...
268 
{
 268 
{
269 
    SEXP x, y = R_NilValue;	/* -Wall*/
 269 
    SEXP x, y = R_NilValue;	/* -Wall*/
270 
    int i, n;
 270 
    int i, n;
271 
 
 271 
 
272 
    checkArity(op, args);
 272 
    checkArity(op, args);
- 
 
 273 
    if (DispatchGroup("Complex", call, op, args, env, &x))
- 
 
 274 
        return x;
273 
    x = CAR(args);
 275 
    x = CAR(args);
274 
    n = length(x);
 276 
    n = length(x);
275 
    if (isComplex(x)) {
 277 
    if (isComplex(x)) {
276 
	switch(PRIMVAL(op)) {
 278 
	switch(PRIMVAL(op)) {
277 
	case 1:	/* Re */
 279 
	case 1:	/* Re */