some bug fixes

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

diff --git a/R/plot.phylo.R b/R/plot.phylo.R
index eb3ad5c098d536da2ce0e174928b26aa7a9f7061..7798d286d0c5b395efefdc554979226d21d416f6 100644 (file)
--- 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]], ...)
 }