unicode.flags.images: use combinations-with-replacement

diff --git a/extra/unicode/flags/images/images.factor b/extra/unicode/flags/images/images.factor
index 5695648823cd67981db2ab9f0be5fd5969ca9f98..5dc86f41265c6ecc21350acebcea827f03e97a4d 100644 (file)
--- a/extra/unicode/flags/images/images.factor
+++ b/extra/unicode/flags/images/images.factor
@@ -5,7 +5,7 @@ ranges sequences sequences.extras strings ui.text unicode.flags ;
 IN: unicode.flags.images
 
 MEMO: valid-flags ( -- flags )
-    CHAR: a CHAR: z [a..b] 2 <k-permutations>
+    CHAR: a CHAR: z [a..b] 2 all-combinations-with-replacement
     [ >string unicode>flag ]
     [ monospace-font swap string>image drop dim>> first2 = ] map-filter ;