a bunch of modifications and fixes

[ape.git] / R / summary.phylo.R

diff --git a/R/summary.phylo.R b/R/summary.phylo.R
index bf01266aec96cc2c82d40fe7ff62c0f63b1fc83e..e44d48decf6883f76adc294617bce092365599d8 100644 (file)
--- a/R/summary.phylo.R
+++ b/R/summary.phylo.R
@@ -1,4 +1,4 @@
-## summary.phylo.R (2010-05-25)
+## summary.phylo.R (2010-11-03)
 
 ##   Print Summary of a Phylogeny and "multiPhylo" operators
 
@@ -118,7 +118,6 @@ print.multiPhylo <- function(x, details = FALSE, ...)
     if (details)
       for (i in 1:N)
         cat("tree", i, ":", length(x[[i]]$tip.label), "tips\n")
-    cat("\n")
 }
 
 "[[.multiPhylo" <- function(x, i)