smalltalk: cleanup usings.

diff --git a/extra/smalltalk/ast/ast.factor b/extra/smalltalk/ast/ast.factor
index b3f8375587a531cb834e79f80674474c10f22b31..c4b1d6b8b70cad734df011d5065e8303e3f59b38 100644 (file)
--- a/extra/smalltalk/ast/ast.factor
+++ b/extra/smalltalk/ast/ast.factor
@@ -1,6 +1,7 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: strings arrays memoize kernel sequences accessors combinators ;
+USING: accessors arrays combinators kernel memoize sequences
+strings ;
 IN: smalltalk.ast
 
 SINGLETONS: nil self super ;

diff --git a/extra/smalltalk/classes/classes.factor b/extra/smalltalk/classes/classes.factor
index 0790cde7d993aefea4c7ae4877675d7d1daec68b..13f9c5e125e4ab8178e04874b116c5572995f297 100644 (file)
--- a/extra/smalltalk/classes/classes.factor
+++ b/extra/smalltalk/classes/classes.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel namespaces assocs accessors words sequences classes.tuple ;
+USING: accessors assocs classes.tuple kernel namespaces words ;
 IN: smalltalk.classes
 
 SYMBOL: classes

diff --git a/extra/smalltalk/compiler/compiler.factor b/extra/smalltalk/compiler/compiler.factor
index f5a519f97d152c81883ea333a639efbdc4c1cc73..0acf1e1bfa08fe88066ecd44c26024753c290e0e 100644 (file)
--- a/extra/smalltalk/compiler/compiler.factor
+++ b/extra/smalltalk/compiler/compiler.factor
@@ -4,8 +4,7 @@ USING: accessors arrays assocs combinators continuations fry
 generic kernel locals locals.types math quotations sequences
 sequences.generalizations sets smalltalk.ast smalltalk.classes
 smalltalk.compiler.assignment smalltalk.compiler.lexenv
-smalltalk.compiler.return smalltalk.selectors splitting vocabs
-words ;
+smalltalk.compiler.return smalltalk.selectors splitting words ;
 IN: smalltalk.compiler
 
 GENERIC: compile-ast ( lexenv ast -- quot )
@@ -69,10 +68,7 @@ M: ast-return compile-ast
     [ [ arguments>> ] [ temporaries>> ] bi append ]
     [ body>> [ assigned-locals ] map concat fast-set ] bi
     '[
-        dup dup _ in?
-        [ <local-reader> ]
-        [ <local> ]
-        if
+        dup dup _ in? [ <local-reader> ] [ <local> ] if
     ] H{ } map>assoc
     dup
     [ nip local-reader? ] assoc-filter

diff --git a/extra/smalltalk/compiler/lexenv/lexenv.factor b/extra/smalltalk/compiler/lexenv/lexenv.factor
index 3a7d29e6dac5728e6b25e7d7546853b000ab813d..9d952bca347ced524b8b800074c865c2c184e934 100644 (file)
--- a/extra/smalltalk/compiler/lexenv/lexenv.factor
+++ b/extra/smalltalk/compiler/lexenv/lexenv.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: assocs kernel accessors quotations slots words
-sequences namespaces combinators combinators.short-circuit
-summary smalltalk.classes ;
+USING: accessors assocs combinators combinators.short-circuit
+kernel namespaces quotations sequences slots smalltalk.classes
+summary words ;
 IN: smalltalk.compiler.lexenv
 
 ! local-readers: assoc string => word

diff --git a/extra/smalltalk/eval/eval.factor b/extra/smalltalk/eval/eval.factor
index 56841beafd059c526400413e631254f31c89d3af..545c1d933c20f786c0b2a9230bbe724a3365f5b1 100644 (file)
--- a/extra/smalltalk/eval/eval.factor
+++ b/extra/smalltalk/eval/eval.factor
@@ -1,8 +1,7 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: io.files io.encodings.utf8
-compiler.units smalltalk.parser smalltalk.compiler
-smalltalk.library ;
+USING: compiler.units io.encodings.utf8 io.files
+smalltalk.compiler smalltalk.parser ;
 IN: smalltalk.eval
 
 : eval-smalltalk ( string -- result )

diff --git a/extra/smalltalk/parser/parser.factor b/extra/smalltalk/parser/parser.factor
index 5e29c229bd42d5fd41a0fa9cccec14f8ab7a3d47..ccf236182880d2bf7ef5443abc3fe04219beab23 100644 (file)
--- a/extra/smalltalk/parser/parser.factor
+++ b/extra/smalltalk/parser/parser.factor
@@ -1,7 +1,8 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: peg peg.ebnf smalltalk.ast sequences sequences.deep strings
-math.parser multiline kernel arrays byte-arrays math assocs accessors ;
+USING: accessors arrays assocs byte-arrays kernel math
+math.parser multiline peg.ebnf sequences sequences.deep
+smalltalk.ast strings ;
 IN: smalltalk.parser
 
 ! :mode=text:noTabs=true:
@@ -131,7 +132,7 @@ BinaryMessage = OptionalWhiteSpace
                 OptionalWhiteSpace
                 (UnaryMessageSend | Operand):rhs
                 => [[ selector { rhs } ast-message boa ]]
-                                   
+
 KeywordMessageSegment = Keyword:k OptionalWhiteSpace (BinaryMessageSend | UnaryMessageSend | Operand):arg => [[ { k arg } ]]
 KeywordMessage = OptionalWhiteSpace
                  KeywordMessageSegment:h