Correctly work with the bizarre negative bases the @mptext@ functions allow.

diff --git a/mptext-len.c b/mptext-len.c
index cf208af..ffb2df9 100644 (file)
--- a/mptext-len.c
+++ b/mptext-len.c
@@ -73,6 +73,7 @@ size_t mptext_len(mp *x, int r)
 
   /* --- Find the right pair of points --- */
 
+  if (r < 0) r = -r;
   do {
     s = ss;
     d++;