The R Project SVN R

Rev

Rev 85146 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 85146 Rev 87815
Line 446... Line 446...
446 
    int narm, has_na = 0;
 446 
    int narm, has_na = 0;
447 
    /* initialize for behavior on empty vector
 447 
    /* initialize for behavior on empty vector
448 
       all(logical(0)) -> TRUE
 448 
       all(logical(0)) -> TRUE
449 
       any(logical(0)) -> FALSE
 449 
       any(logical(0)) -> FALSE
450 
     */
 450 
     */
451 
    Rboolean val = PRIMVAL(op) == _OP_ALL ? TRUE : FALSE;
 451 
    int val = PRIMVAL(op) == _OP_ALL ? TRUE : FALSE;
452 
 
 452 
 
453 
    PROTECT(args = fixup_NaRm(args));
 453 
    PROTECT(args = fixup_NaRm(args));
454 
    PROTECT(call2 = shallow_duplicate(call));
 454 
    PROTECT(call2 = shallow_duplicate(call));
455 
    R_args_enable_refcnt(args);
 455 
    R_args_enable_refcnt(args);
456 
    SETCDR(call2, args);
 456 
    SETCDR(call2, args);