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

factor-shell
John Benediktsson 2018-01-17 14:17:44 -08:00
parent 1beaa8f494
commit 3147593b2c
1 changed files with 1 additions and 1 deletions

View File

@ -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 )