just comments

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

src/library/base/R/format.R

@@ -1,14 +1,8 @@
-
 format <- function(x, ...) UseMethod("format")
 
-### .format.Internal <- format## <primitive>  defined in ../../../main/paste.c
-###----- FIXME:  we should rather use .Internal(format(...))
-### FIXED: I made the function below do just this.
-### Without it there was an infinite recursion.  Ross
-
 ###	 -----
-###----- FIXME ----- the 'digits handling should rather happen in
-###	 ----- ----- in .format.Internal(..)  ../../main/paste.c !!!
+###----- FIXME ----- the digits handling should rather happen in
+###	 -----       in .Internal(format(...))   in  ../../main/paste.c !
 format.default <- function(x, trim=FALSE, digits=NULL)
 {
         if(!is.null(digits)) {