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

diff --git a/basis/math/combinatorics/combinatorics.factor b/basis/math/combinatorics/combinatorics.factor
index df3025ff7aa7afa8517a42ef2a2a5bc639ad8271..e091b18329ec1ef454acac01c07a47271794c484 100644 (file)
--- 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 )