From b9e5782453ab8f89ac15219b4d20301f7c19545a Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 28 Jul 2014 18:56:55 -0700
Subject: * arith.c (rising_product): Fix wrong m == n case, which breaks the
 n_perm_k function for k == 1.

* txr.1: Fix typo: n-choose-k written in place of n-perm-k.
---
 arith.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'arith.c')

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