... break; default: errorcall(call, _("unknown
cumxxx function")); } } else if( ( isInteger(CAR(args)) || isLogical(CAR(args)) ) && PRIMVAL(op) !
...... break; default: errorcall(call, _("unknown cumxxx function")); } } else if( ( isInteger(CAR(args)) || isLogical(CAR(args)) ) && PRIMVAL(op) ! ...
https://svn.r-project.org/R/trunk/src/main/cum.c - 7k -