factor: trim some using lists

[factor.git] / basis / unicode / script / script.factor

diff --git a/basis/unicode/script/script.factor b/basis/unicode/script/script.factor
index 278199e63b98885bd47fbcd248e5fdb44ca0a847..7d7f7a6946868bfaa37f3325783af957207963df 100644 (file)
--- a/basis/unicode/script/script.factor
+++ b/basis/unicode/script/script.factor
@@ -1,18 +1,8 @@
 ! Copyright (C) 2008 Daniel Ehrenberg.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: interval-maps namespaces parser simple-flat-file
-words.constant ;
+USING: literals simple-flat-file ;
 IN: unicode.script
 
-<PRIVATE
-
-<<
-"script-table" create-word-in
-"vocab:unicode/script/Scripts.txt" load-interval-file
-define-constant
->>
-
-PRIVATE>
-
-: script-of ( char -- script )
-    script-table interval-at ;
+CONSTANT: script-table $[
+    "vocab:unicode/UCD/Scripts.txt" load-interval-file
+]