The R Project SVN – R – Diff – /branches/R-exp-R5/src/main/objects.c

     UNPROTECT(5);
     cptr->callflag = CTXT_RETURN;
     return 0;
+}
-/* Note: "do_usemethod" is not the only entry point to */
+/* Note: "do_usemethod" is not the only entry point to
-/* "usemethod". Things like [ and [[ call usemethod directly, */
+   "usemethod". Things like [ and [[ call usemethod directly,
-/* hence do_usemethod should just be an interface to usemethod. */
+   hence do_usemethod should just be an interface to usemethod.
+*/
+/* This is a primitive SPECIALSXP */
 SEXP attribute_hidden do_usemethod(SEXP call, SEXP op, SEXP args, SEXP env)
+{
     SEXP ans, generic = R_NilValue /* -Wall */, obj, val;
     SEXP callenv, defenv;
     int nargs;
 /* the second the object and any remaining are matched with the */
 /* formals of the chosen method. */
 #define ARGUSED(x) LEVELS(x)
+/* This is a special .Internal */
 SEXP attribute_hidden do_nextmethod(SEXP call, SEXP op, SEXP args, SEXP env)
+{
     char buf[512], b[512], bb[512], tbuf[10];
     const char *sb, *sg, *sk;
     SEXP ans, s, t, klass, method, matchedarg, generic, nextfun;

The R Project SVN R