steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2014-05-19 14:29:16 -07:00
parent c9d48ff390
commit a9d1e320d2
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/unicode/script/script.factor
View File

@ -1,16 +1,18 @@
! Copyright (C) 2008 Daniel Ehrenberg. ! Copyright (C) 2008 Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license. ! 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 IN: unicode.script
<PRIVATE <PRIVATE
SYMBOL: script-table <<
"script-table" create-in
"vocab:unicode/script/Scripts.txt" load-interval-file "vocab:unicode/script/Scripts.txt" load-interval-file
script-table set-global define-constant
>>
PRIVATE> PRIVATE>
: script-of ( char -- script ) : script-of ( char -- script )
script-table get-global interval-at ; script-table interval-at ;