math.combinatorics: minor fix to reduce-combinations stack effect.

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