The R Project SVN R

(root)/branches/R-exp-R5/src/main/complex.c @ 63243 – Rev 51270 → 51316



{
    SEXP x, y = R_NilValue;	/* -Wall*/
    int i, n;
 
    checkArity(op, args);
    check1arg(args, call, "z");
    if (DispatchGroup("Complex", call, op, args, env, &x))
	return x;
    x = CAR(args);
    n = length(x);
    if (isComplex(x)) {

Rev 51270	Rev 51316
Line 384...	Line 384...
384	`{`	384	`{`
385	`SEXP x, y = R_NilValue; /* -Wall*/`	385	`SEXP x, y = R_NilValue; /* -Wall*/`
386	`int i, n;`	386	`int i, n;`
387		387
388	`checkArity(op, args);`	388	`checkArity(op, args);`
-		389	`check1arg(args, call, "z");`
389	`if (DispatchGroup("Complex", call, op, args, env, &x))`	390	`if (DispatchGroup("Complex", call, op, args, env, &x))`
390	`return x;`	391	`return x;`
391	`x = CAR(args);`	392	`x = CAR(args);`
392	`n = length(x);`	393	`n = length(x);`
393	`if (isComplex(x)) {`	394	`if (isComplex(x)) {`