digits/digpow: wrong results for radix powers.

* arith.c (digcommon): Fix off-by-one test causing incorrect
results for radix powers like (digits 10) (digits 100) ...
and analogously in other radices. Reported by vapnik spaknik.

1 files changed, 1 insertions, 1 deletions

diff --git a/arith.c b/arith.c
index e9fd0185..6079e15f 100644
--- a/arith.c
+++ b/arith.c
@@ -3732,7 +3732,7 @@ static val digcommon(int pow, val self, val n, val base_in)
     val p = nil, p0;
     list_collect_decl (out, ptail);
 
-    while (lt(k, n)) {
+    while (le(k, n)) {
       push(k, &p);
       k = mul(k, r);
     }