unicode.script: change to use a constant instead of a global.

diff --git a/basis/unicode/script/script.factor b/basis/unicode/script/script.factor
index d17f3b0a03ccdbd7dc48218c23313ee0528e2ef7..d973f8f7128583a76f3c70ac25257184e9a8e092 100644 (file)
--- a/basis/unicode/script/script.factor
+++ b/basis/unicode/script/script.factor
@@ -1,16 +1,18 @@
 ! Copyright (C) 2008 Daniel Ehrenberg.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: interval-maps namespaces simple-flat-file ;
+USING: interval-maps namespaces parser simple-flat-file
+words.constant ;
 IN: unicode.script
 
 <PRIVATE
 
-SYMBOL: script-table
-
+<<
+"script-table" create-in
 "vocab:unicode/script/Scripts.txt" load-interval-file
-script-table set-global
+define-constant
+>>
 
 PRIVATE>
 
 : script-of ( char -- script )
-    script-table get-global interval-at ;
+    script-table interval-at ;