factor: trim using lists

[factor.git] / basis / xmode / tokens / tokens.factor

diff --git a/basis/xmode/tokens/tokens.factor b/basis/xmode/tokens/tokens.factor
index b8917529d6d9d808a7a84dad513082abca471a94..2fc19cde320449e5525753b24ff5b290c37bb856 100644 (file)
--- a/basis/xmode/tokens/tokens.factor
+++ b/basis/xmode/tokens/tokens.factor
@@ -1,14 +1,17 @@
-USING: accessors parser words sequences namespaces kernel assocs
-compiler.units ;
+USING: assocs kernel namespaces parser words.symbol ;
 IN: xmode.tokens
 
 ! Based on org.gjt.sp.jedit.syntax.Token
 <<
 SYMBOL: tokens
 
-{ "COMMENT1" "COMMENT2" "COMMENT3" "COMMENT4" "DIGIT" "FUNCTION" "INVALID" "KEYWORD1" "KEYWORD2" "KEYWORD3" "KEYWORD4" "LABEL" "LITERAL1" "LITERAL2" "LITERAL3" "LITERAL4" "MARKUP" "OPERATOR" "END" "NULL" } [
-    create-in dup define-symbol
-    dup name>> swap
+{
+    "COMMENT1" "COMMENT2" "COMMENT3" "COMMENT4" "DIGIT"
+    "FUNCTION" "INVALID" "KEYWORD1" "KEYWORD2" "KEYWORD3"
+    "KEYWORD4" "LABEL" "LITERAL1" "LITERAL2" "LITERAL3"
+    "LITERAL4" "MARKUP" "OPERATOR" "END" "NULL"
+} [
+    dup create-word-in dup define-symbol
 ] H{ } map>assoc tokens set-global
 >>