stabler and faster C code for ME and BIONJ

[ape.git] / src / bipartition.c

diff --git a/src/bipartition.c b/src/bipartition.c
index 86d5bbd299dabd8c241ea99e02e8a4fd261948a1..aeb6977080ff182c1c044442b9a7e1e9e558aba3 100644 (file)
--- a/src/bipartition.c
+++ b/src/bipartition.c
@@ -112,7 +112,8 @@ SEXP bipartition(SEXP edge, SEXP nbtip, SEXP nbnode)
     return ans;
 } /* bipartition */
 
-/* From R-ext: */
+/* From R-ext manual
+   (not the same than in library/stats/src/nls.c) */
 SEXP getListElement(SEXP list, char *str)
 {
     SEXP elmt = R_NilValue, names = getAttrib(list, R_NamesSymbol);