More unit test fixes

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

diff --git a/extra/xmode/tokens/tokens.factor b/extra/xmode/tokens/tokens.factor
old mode 100644 (file)
new mode 100755 (executable)
index e1fa2dd..7b913cb
--- a/extra/xmode/tokens/tokens.factor
+++ b/extra/xmode/tokens/tokens.factor
@@ -5,12 +5,12 @@ 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 word-name swap
-    ] H{ } map>assoc tokens set-global
-] with-compilation-unit
+<<
+{ "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 word-name swap
+] H{ } map>assoc tokens set-global
+>>
 
 : string>token ( string -- id ) tokens get at ;