--- a/CombLib.mod
+++ b/CombLib.mod
@@ -14,7 +14,7 @@
(* Licence : GNU Lesser General Public License (LGPL) *)
(*------------------------------------------------------------------------*)
- (* $Id: CombLib.mod,v 1.1 2018/12/10 09:14:39 mriedl Exp mriedl $ *)
+ (* $Id: CombLib.mod,v 1.1 2018/12/10 09:22:07 mriedl Exp mriedl $ *)
FROM LongMath IMPORT exp;
IMPORT LMathLib;
@@ -84,7 +84,7 @@
m:=NSet;
LOOP
IF (m < 1) THEN EXIT; END;
- IF (Comb[NComb-1,m-1] < IMax-NSet+m) THEN
+ IF (INT(Comb[NComb-1,m-1]) < IMax-NSet+m) THEN
more:=TRUE;
last:=m;
EXIT