various bug fixes

[ape.git] / R / bind.tree.R

diff --git a/R/bind.tree.R b/R/bind.tree.R
index 58d7caba4a4a9831652ea6a159d976cb8b07c87f..cc7ee1ff3a055ca837889415b3d48c2cf2161d7c 100644 (file)
--- a/R/bind.tree.R
+++ b/R/bind.tree.R
@@ -1,4 +1,4 @@
-## bind.tree.R (2011-03-02)
+## bind.tree.R (2011-06-21)
 
 ##    Bind Trees
 
@@ -146,8 +146,8 @@ bind.tree <- function(x, y, where = "root", position = 0, interactive = FALSE)
                 y$edge[1] <- x$edge[i, 1]
                 ## delete i-th edge in x:
                 x$edge <- x$edge[-i, ]
-                i <- i - 1L
                 if (wbl) x$edge.length <- x$edge.length[-i]
+                i <- i - 1L
             }
             x$tip.label <- x$tip.label[-where]
             ## renumber the tips that need to: