Rename and add sorting words

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

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