add comment

git-svn-id: https://svn.r-project.org/R/trunk@87838 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: ripley

src/main/apply.c

@@ -111,6 +111,7 @@ attribute_hidden SEXP do_vapply(SEXP call, SEXP op, SEXP args, SEXP rho)
     if (!isVector(value)) error(_("'FUN.VALUE' must be a vector"));
     useNames = asLogical(PROTECT(eval(CADDDR(args), rho)));
     UNPROTECT(1);
+    // FIXME: does not protect against length > 1
     if (useNames == NA_LOGICAL) error(_("invalid '%s' value"), "USE.NAMES");
 
     n = xlength(XX);