math.combinatorics: fix selections bug that went missing before previous commit.

2018-01-17 13:55:05 -08:00 · 2018-01-17 13:55:05 -08:00 · 9d35cd9048
parent b93dab1533
commit 9d35cd9048
1 changed files with 1 additions and 1 deletions
--- a/basis/math/combinatorics/combinatorics.factor
+++ b/basis/math/combinatorics/combinatorics.factor
@ -255,7 +255,7 @@ PRIVATE>
    1 seq length 1 - [
        over 0 =
    ] [
-        [ seq [ + n /mod ] change-nth-unsafe ] keep
+        [ seq [ + n /mod ] change-nth-unsafe ] keep 1 -
    ] do until 2drop ; inline

 :: (selections) ( seq n -- selections )