X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fplot.phylo.R;h=7798d286d0c5b395efefdc554979226d21d416f6;hb=bd53d983d5daf867bc50b00ace48d017506599ef;hp=eb3ad5c098d536da2ce0e174928b26aa7a9f7061;hpb=b9f8872e29c6dbda44f60f67b9797dd90a119de6;p=ape.git

diff --git a/R/plot.phylo.R b/R/plot.phylo.R
index eb3ad5c..7798d28 100644
--- a/R/plot.phylo.R
+++ b/R/plot.phylo.R
@@ -1,4 +1,4 @@
-## plot.phylo.R (2009-09-30)
+## plot.phylo.R (2009-10-27)
 
 ##   Plot Phylogenies
 
@@ -590,5 +590,5 @@ plot.multiPhylo <- function(x, layout = 1, ...)
         par(ask = TRUE)
         on.exit(par(ask = FALSE))
     }
-    for (i in x) plot(i, ...)
+    for (i in 1:length(x)) plot(x[[i]], ...)
 }