The R Project SVN R

(root)/branches/R-exp-R5/src/main/array.c @ 77458 – Rev 50989 → 51267



{
    SEXP ans;
    R_len_t len;
 
    checkArity(op, args);
    check1arg(args, call, "x");
 
    if(isObject(CAR(args)) && DispatchOrEval(call, op, "length", args,
					     rho, &ans, 0, 1))
      return(ans);
 

Rev 50989	Rev 51267
Line 371...	Line 371...
371	`{`	371	`{`
372	`SEXP ans;`	372	`SEXP ans;`
373	`R_len_t len;`	373	`R_len_t len;`
374		374
375	`checkArity(op, args);`	375	`checkArity(op, args);`
-		376	`check1arg(args, call, "x");`
376		377
377	`if(isObject(CAR(args)) && DispatchOrEval(call, op, "length", args,`	378	`if(isObject(CAR(args)) && DispatchOrEval(call, op, "length", args,`
378	`rho, &ans, 0, 1))`	379	`rho, &ans, 0, 1))`
379	`return(ans);`	380	`return(ans);`
380		381