math.combinatorics: make selections use change-nth-unsafe again.

diff --git a/basis/math/combinatorics/combinatorics.factor b/basis/math/combinatorics/combinatorics.factor
index baa401cd71020cc4fe9a086c9dd358f77f88f26c..c9f9a0e5da76505c86d564e17a88f7d9abac257e 100644 (file)
--- a/basis/math/combinatorics/combinatorics.factor
+++ b/basis/math/combinatorics/combinatorics.factor
@@ -255,7 +255,7 @@ PRIVATE>
     1 seq length 1 - [
         dup 0 >= [ over 0 = ] [ t ] if
     ] [
-        [ seq [ + n /mod ] change-nth ] keep 1 -
+        [ seq [ + n /mod ] change-nth-unsafe ] keep 1 -
     ] do until 2drop ; inline
 
 :: (selections) ( seq n -- selections )