* 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.

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))