From 02d652e6c07289bd47e577eade99cd88d0f1bd2d Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 18 Apr 2013 07:17:36 -0700 Subject: [PATCH] math.combinatorics: minor fix to reduce-combinations stack effect. --- 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 d5e782de6a..4f2e11144e 100644 --- a/basis/math/combinatorics/combinatorics.factor +++ b/basis/math/combinatorics/combinatorics.factor @@ -204,7 +204,7 @@ PRIVATE> [ combinations-quot find drop ] [ drop pick [ combination ] [ 3drop f ] if ] 3bi ; inline -: reduce-combinations ( ... seq k identity quot: ( ... prev elt -- next ) -- ... result ) +: reduce-combinations ( ... seq k identity quot: ( ... prev elt -- ... next ) -- ... result ) [ -rot ] dip each-combination ; inline : all-subsets ( seq -- subsets )