From 75350e11c3a5768df7dd5d88b7147c92b3f99380 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 6 Sep 2019 22:01:24 -0700
Subject: digits/digpow: disallow base 1.

* arith.c (digcommon): Fix wrong test that allows base 1 to be
admitted, resulting in infinitely looping behavior.
---
 arith.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
 
-- 
cgit v1.2.3