unicode: make this the API for all unicode things.

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

diff --git a/basis/unicode/script/script.factor b/basis/unicode/script/script.factor
index 278199e63b98885bd47fbcd248e5fdb44ca0a847..7d9a0f0bd71d621c0cb7b69654274966d3fd2dc4 100644 (file)
--- a/basis/unicode/script/script.factor
+++ b/basis/unicode/script/script.factor
@@ -4,15 +4,8 @@ USING: interval-maps namespaces parser simple-flat-file
 words.constant ;
 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 ;