assocs.extras: fix usages of collect-key-by collect-value-by

[factor.git] / extra / wordlet / wordlet.factor

diff --git a/extra/wordlet/wordlet.factor b/extra/wordlet/wordlet.factor
index 151a6d72fe48496d271a45bfe1245fc87d68938c..05a0bbd5eda7b8b59511b4dbadad7f79d8c07ddb 100644 (file)
--- a/extra/wordlet/wordlet.factor
+++ b/extra/wordlet/wordlet.factor
@@ -49,7 +49,7 @@ TUPLE: wordlet-game secret-word chances guesses ;
        guess>chars
     ] with map concat members
     [ background of ] assoc-map
-    [ first ] collect-value-by
+    [ drop ] collect-value-by
     [ [ color>n ] zip-with sort-values reverse first first ] assoc-map
     CHAR: a CHAR: z [a..b] [ 1string COLOR: white ] { } map>assoc [ or ] assoc-merge ;