From a64835bc947d061e164617f068b842c1ce0fe4cf Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 5 Sep 2022 23:36:55 -0500
Subject: [PATCH 1/1] factor: trim some using lists

---
 basis/unicode/breaks/breaks.factor       | 7 +++----
 basis/unicode/case/case.factor           | 2 +-
 basis/unicode/collation/collation.factor | 2 +-
 basis/unicode/data/data.factor           | 4 ++--
 basis/unicode/normalize/normalize.factor | 2 +-
 basis/unicode/script/script.factor       | 2 +-
 basis/unicode/unicode.factor             | 2 +-
 basis/xml/syntax/inverse/inverse.factor  | 4 ++--
 extra/modern/modern.factor               | 6 +++---
 extra/modern/slices/slices.factor        | 3 +--
 10 files changed, 16 insertions(+), 18 deletions(-)

diff --git a/basis/unicode/breaks/breaks.factor b/basis/unicode/breaks/breaks.factor
index 94a1d3f752..f69b0945fe 100644
--- a/basis/unicode/breaks/breaks.factor
+++ b/basis/unicode/breaks/breaks.factor
@@ -1,9 +1,8 @@
 ! 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
diff --git a/basis/unicode/case/case.factor b/basis/unicode/case/case.factor
index 1efeeced69..d18e23dade 100644
--- a/basis/unicode/case/case.factor
+++ b/basis/unicode/case/case.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2008, 2009 Daniel Ehrenberg.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: combinators.short-circuit kernel locals namespaces sbufs
+USING: combinators.short-circuit kernel namespaces sbufs
 sequences splitting unicode.categories unicode.data ;
 QUALIFIED: ascii
 IN: unicode.case
diff --git a/basis/unicode/collation/collation.factor b/basis/unicode/collation/collation.factor
index 1f81d8dd98..108eb69389 100644
--- a/basis/unicode/collation/collation.factor
+++ b/basis/unicode/collation/collation.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2008 Daniel Ehrenberg.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays assocs combinators
-combinators.short-circuit combinators.smart fry kernel locals make
+combinators.short-circuit combinators.smart fry kernel make
 math math.order math.parser namespaces sequences
 simple-flat-file splitting strings unicode.data ;
 IN: unicode.collation
diff --git a/basis/unicode/data/data.factor b/basis/unicode/data/data.factor
index 4fb2705899..459c3b017b 100644
--- a/basis/unicode/data/data.factor
+++ b/basis/unicode/data/data.factor
@@ -2,8 +2,8 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: arrays ascii assocs byte-arrays combinators
 combinators.short-circuit grouping hashtables interval-sets
-io.encodings.utf8 io.files kernel locals make math math.bitwise
-math.order math.parser ranges memoize namespaces sequences
+io.encodings.utf8 io.files kernel make math math.bitwise
+math.order math.parser ranges namespaces sequences
 sets simple-flat-file sorting splitting strings.parser ;
 IN: unicode.data
 
diff --git a/basis/unicode/normalize/normalize.factor b/basis/unicode/normalize/normalize.factor
index 36681a6aa8..cc22e6d339 100644
--- a/basis/unicode/normalize/normalize.factor
+++ b/basis/unicode/normalize/normalize.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2008 Daniel Ehrenberg.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays ascii combinators
-combinators.short-circuit hints kernel locals make math
+combinators.short-circuit hints kernel make math
 math.order sbufs sequences sorting.insertion strings
 unicode.data vectors ;
 IN: unicode.normalize
diff --git a/basis/unicode/script/script.factor b/basis/unicode/script/script.factor
index 427497b73d..7d7f7a6946 100644
--- a/basis/unicode/script/script.factor
+++ b/basis/unicode/script/script.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2008 Daniel Ehrenberg.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: interval-maps literals simple-flat-file ;
+USING: literals simple-flat-file ;
 IN: unicode.script
 
 CONSTANT: script-table $[
diff --git a/basis/unicode/unicode.factor b/basis/unicode/unicode.factor
index 314e12ef22..e67b3a5366 100644
--- a/basis/unicode/unicode.factor
+++ b/basis/unicode/unicode.factor
@@ -3,7 +3,7 @@ hints interval-maps kernel math math.order sequences sorting
 strings unicode.breaks.private unicode.case.private
 unicode.categories unicode.collation unicode.collation.private
 unicode.data unicode.data.private unicode.normalize.private
-unicode.script locals ranges ;
+unicode.script ranges ;
 IN: unicode
 
 CATEGORY: blank Zs Zl Zp | "\r\n\t" member? ;
diff --git a/basis/xml/syntax/inverse/inverse.factor b/basis/xml/syntax/inverse/inverse.factor
index 63cb8dc68c..4bed879fcd 100644
--- a/basis/xml/syntax/inverse/inverse.factor
+++ b/basis/xml/syntax/inverse/inverse.factor
@@ -2,8 +2,8 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays assocs combinators
 combinators.short-circuit inverse kernel namespaces sequences
-sequences.generalizations sorting strings unicode xml.data
-xml.syntax.private ;
+sequences.generalizations sorting strings unicode xml.data ;
+USE: xml.syntax.private ! required but does not reference words
 IN: xml.syntax.inverse
 
 : remove-blanks ( seq -- newseq )
diff --git a/extra/modern/modern.factor b/extra/modern/modern.factor
index 64752f2446..435aaedd69 100644
--- a/extra/modern/modern.factor
+++ b/extra/modern/modern.factor
@@ -1,10 +1,10 @@
 ! Copyright (C) 2016 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays assocs combinators
+USING: accessors arrays assocs combinators combinators.extras
 combinators.short-circuit continuations io.encodings.utf8
 io.files kernel make math math.order modern.paths modern.slices
-sequences sequences.extras sets combinators.extras splitting strings
-unicode vocabs.loader ;
+sequences sequences.extras sets splitting strings unicode
+vocabs.loader ;
 IN: modern
 
 ERROR: string-expected-got-eof n string ;
diff --git a/extra/modern/slices/slices.factor b/extra/modern/slices/slices.factor
index ff1a54b511..8d3d9da8d0 100644
--- a/extra/modern/slices/slices.factor
+++ b/extra/modern/slices/slices.factor
@@ -1,8 +1,7 @@
 ! Copyright (C) 2016 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors assocs combinators.extras kernel math sequences
-sequences.deep sequences.extras sequences.private strings
-unicode ;
+sequences.deep sequences.extras strings unicode ;
 IN: modern.slices
 
 : >strings ( seq -- str )
-- 
2.34.1