digits/digpow: disallow base 1.

* arith.c (digcommon): Fix wrong test that allows base 1 to be
admitted, resulting in infinitely looping behavior.

1 files changed, 1 insertions, 1 deletions

diff --git a/arith.c b/arith.c
index db9b2deb..e9fd0185 100644
--- a/arith.c
+++ b/arith.c
@@ -3723,7 +3723,7 @@ static val digcommon(int pow, val self, val n, val base_in)
   if (!integerp(n) || minusp(n))
     uw_throwf(error_s, lit("~a: value ~s must be positive integer"),
               self, n, nao);
-  if (!integerp(r) || lt(r, one))
+  if (!integerp(r) || le(r, one))
     uw_throwf(error_s, lit("~a: base ~s must be positive integer"),
               self, r, nao);