From a9d1e320d28bf7e9821bd36a25e7d5c43b41eb4a Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 19 May 2014 14:29:16 -0700
Subject: [PATCH] unicode.script: change to use a constant instead of a global.

---
 basis/unicode/script/script.factor | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/basis/unicode/script/script.factor b/basis/unicode/script/script.factor
index d17f3b0a03..d973f8f712 100644
--- 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 ;