1 files changed, 1 insertions, 1 deletions
diff --git a/arith.c b/arith.c
index 450ea641..c1f7026d 100644
--- a/arith.c
+++ b/arith.c
@@ -1983,7 +1983,7 @@ static val rising_product(val m, val n)
   if (lt(n, one))
     return one;
 
-  if (ge(m, n))
+  if (gt(m, n))
     return one;
 
   if (lt(m, one))