From 3147593b2cf956244b00239e309136853818b245 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 17 Jan 2018 14:17:44 -0800 Subject: [PATCH] math.combinatorics: make selections use change-nth-unsafe again. --- basis/math/combinatorics/combinatorics.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/math/combinatorics/combinatorics.factor b/basis/math/combinatorics/combinatorics.factor index baa401cd71..c9f9a0e5da 100644 --- 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 )