From 3ca65a2b47f33f6053f619ad2e3dec0beeab34d7 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 18 Apr 2013 09:04:16 -0700 Subject: [PATCH] math.combinatorics: fix map>assoc-combinations (shouldn't have been locals). --- 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 4f2e11144e..1da0ad100d 100644 --- a/basis/math/combinatorics/combinatorics.factor +++ b/basis/math/combinatorics/combinatorics.factor @@ -194,7 +194,7 @@ PRIVATE> : filter-combinations ( ... seq k quot: ( ... elt -- ... ? ) -- ... newseq ) selector [ each-combination ] dip ; inline -:: map>assoc-combinations ( ... seq k quot: ( ... elt -- ... key value ) exemplar -- ... assoc ) +: map>assoc-combinations ( ... seq k quot: ( ... elt -- ... key value ) exemplar -- ... assoc ) [ combinations-quot ] dip map>assoc ; inline : all-combinations ( seq k -- seq' )