The R Project SVN – R – Diff – /trunk/src/main/errors.c

+{
     R_MissingArgError_c(CHAR(PRINTNAME(symbol)), call, subclass);
+}
+NORET attribute_hidden void R_FunctionNotFoundError(SEXP call, SEXP sym)
+{
+    if (TYPEOF(sym) != SYMSXP)
+	error(_("not a symbol"));
+    SEXP cond = R_makeErrorCondition(call, "functionNotFoundError", NULL, 1,
+				     _("could not find function \"%s\""),
+				     CHAR(PRINTNAME(sym)));
+    PROTECT(cond);
+    R_setConditionField(cond, 2, "name", sym);
+    R_signalErrorCondition(cond, call);
+    UNPROTECT(1); // not reached
+}
 attribute_hidden /* for now */
 void R_setConditionField(SEXP cond, R_xlen_t idx, const char *name, SEXP val)
+{
     PROTECT(cond);
     PROTECT(val);

The R Project SVN R