factor: trim some using lists

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

diff --git a/basis/unicode/breaks/breaks.factor b/basis/unicode/breaks/breaks.factor
index 6213cc4483c804164fa357b874d8fe8a24be113f..f69b0945feab23dad5982c8297f61c2e28ea3a53 100644 (file)
--- a/basis/unicode/breaks/breaks.factor
+++ b/basis/unicode/breaks/breaks.factor
@@ -1,24 +1,27 @@
 ! Copyright (C) 2008 Daniel Ehrenberg.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays assocs combinators fry interval-maps
-kernel literals locals math namespaces parser sequences
-simple-flat-file unicode.categories unicode.data
-unicode.normalize.private words words.constant math.order ;
+USING: accessors arrays combinators interval-maps kernel
+literals math namespaces sequences simple-flat-file
+unicode.categories unicode.data unicode.normalize.private words ;
 IN: unicode.breaks
 
 <PRIVATE
 
+<<
+
 :: load-interval-file-for ( filename n key -- table )
     filename load-data-file [ n swap nth key = ] filter
     intern-values expand-ranges ;
 
+>>
+
 CONSTANT: emoji-modifier-table $[
-    "resource:basis/unicode/UCD/auxiliary/emoji-data.txt"
+    "resource:basis/unicode/UCD/emoji/emoji-data.txt"
     1 "Emoji_Modifier" load-interval-file-for
 ]
 
 CONSTANT: extended-pictographic-table $[
-    "resource:basis/unicode/UCD/auxiliary/emoji-data.txt"
+    "resource:basis/unicode/UCD/emoji/emoji-data.txt"
     1 "Extended_Pictographic" load-interval-file-for
 ]
 
@@ -293,7 +296,9 @@ SYMBOL: check-RI-pair
     table get [
         [ { { 0 [ f ] } { 1 [ t ] } [ ] } case ] map
     ] map ;
+>>
 
+<<
 CONSTANT: word-table $[
     unicode-words init-table table
     [ make-word-table finish-word-table ] with-variable