use reject instead of [ ... not ] filter.

[factor.git] / basis / xmode / keyword-map / keyword-map.factor

diff --git a/basis/xmode/keyword-map/keyword-map.factor b/basis/xmode/keyword-map/keyword-map.factor
index 402dd974b1eba8b86d01239226aa734bdd68a350..663e6c7f362104c1cd5dd36fa59ceaa9c3681e23 100644 (file)
--- a/basis/xmode/keyword-map/keyword-map.factor
+++ b/basis/xmode/keyword-map/keyword-map.factor
@@ -32,7 +32,7 @@ M: keyword-map >alist
     assoc>> >alist ;
 
 : (keyword-map-no-word-sep) ( assoc -- str )
-    keys combine [ alpha? not ] filter natural-sort ;
+    keys combine [ alpha? ] reject natural-sort ;
 
 : keyword-map-no-word-sep* ( keyword-map -- str )
     dup no-word-sep>> [ ] [