factor: trim using lists

[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 6cf8dd930a74be79a81f3fe0170ad5732e9065b1..fd583e6e878b94a57f42ef2786269f7a6df3d984 100644 (file)
--- a/basis/xmode/keyword-map/keyword-map.factor
+++ b/basis/xmode/keyword-map/keyword-map.factor
@@ -1,7 +1,6 @@
 ! Copyright (C) 2007, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors kernel strings assocs sequences hashtables
-sorting unicode sets ;
+USING: accessors assocs kernel sequences sets sorting unicode ;
 IN: xmode.keyword-map
 
 ! Based on org.gjt.sp.jedit.syntax.KeywordMap
@@ -32,7 +31,7 @@ M: keyword-map >alist
     assoc>> >alist ;
 
 : (keyword-map-no-word-sep) ( assoc -- str )
-    keys combine [ alpha? ] reject natural-sort ;
+    keys union-all [ alpha? ] reject natural-sort ;
 
 : keyword-map-no-word-sep* ( keyword-map -- str )
     dup no-word-sep>> [ ] [