math.factorials: include 1.

diff --git a/extra/math/factorials/factorials.factor b/extra/math/factorials/factorials.factor
index 493f5f228f14d7d2a2de0a5d4de9458210cac811..df025dde5c88e4a99680d484aa1fef2effb9e2c6 100644 (file)
--- a/extra/math/factorials/factorials.factor
+++ b/extra/math/factorials/factorials.factor
@@ -11,8 +11,8 @@ MEMO: factorial ( n -- n! )
 
 : factorial/ ( n k -- n!/k! )
     {
-        { [ dup 1 < ] [ drop factorial ] }
-        { [ over 1 < ] [ nip factorial recip ] }
+        { [ dup 1 <= ] [ drop factorial ] }
+        { [ over 1 <= ] [ nip factorial recip ] }
         [
             2dup < [ t ] [ swap f ] if
             [ (a,b] product ] dip [ recip ] when