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

 		error("repeated formal argument 'recursive'");
 	    if ((v = asLogical(CAR(a))) != NA_INTEGER) {
 		*recurse = v;
+	    }
 	    if (last == NULL)
-		last = ans = next;
+		ans = next;
 	    else
 		SETCDR(last, next);
+	}
 	else if (n != R_NilValue && pmatch(R_UseNamesSymbol, n, 1)) {
 	    if (n_usenames++ == 1)
 		error("repeated formal argument 'use.names'");
 	    if ((v = asLogical(CAR(a))) != NA_INTEGER) {
 		*usenames = v;
+	    }
 	    if (last == NULL)
-		last = ans = next;
+		ans = next;
 	    else
 		SETCDR(last, next);
+	}
 	else last = a;
+    }
     return ans;
+}
-/* The change to lists based on dotted pairs has meant that it was */
+/* The change to lists based on dotted pairs has meant that it was
-/* necessary to separate the internal code for "c" and "unlist". */
+   necessary to separate the internal code for "c" and "unlist".
-/* Although the functions are quite similar, they operate on very */
+   Although the functions are quite similar, they operate on very
-/* different data structures. */
+   different data structures.
+*/
-/* The major difference between the two functions is that the value of */
+/* The major difference between the two functions is that the value of
-/* the "recursive" argument is FALSE by default for "c" and TRUE for */
+   the "recursive" argument is FALSE by default for "c" and TRUE for
-/* "unlist".  In addition, "list" takes ... while "unlist" takes a single */
+   "unlist".  In addition, "c" takes ... while "unlist" takes a single
-/* argument, and unlist has two optional arguments, while list has none. */
+   argument.
+*/
 SEXP do_c(SEXP call, SEXP op, SEXP args, SEXP env)
+{
     SEXP ans;

The R Project SVN R

(root)/trunk/src/main/bind.c – Rev 24736 → 24845