basis/extra: move fewer things.

basis/bootstrap/image/upload/upload.factor

@@ -1,10 +1,10 @@
 ! Copyright (C) 2008 Slava Pestov.
 ! Copyright (C) 2015 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: bootstrap.image checksums checksums.openssl cli.git fry
+USING: bootstrap.image checksums checksums.openssl fry io
-io io.directories io.encodings.ascii io.encodings.utf8 io.files
+io.directories io.encodings.ascii io.encodings.utf8 io.files
 io.files.temp io.files.unique io.launcher io.pathnames kernel
-make math.parser namespaces sequences splitting system ;
+make math.parser namespaces sequences splitting system unicode ;
 IN: bootstrap.image.upload
 
 SYMBOL: upload-images-destination
@@ -21,7 +21,11 @@ SYMBOL: build-images-destination
     or ;
 
 : factor-git-branch ( -- name )
-    image-path parent-directory git-current-branch ;
+    image-path parent-directory [
+        { "git" "rev-parse" "--abbrev-ref" "HEAD" }
+        utf8 <process-reader> stream-contents
+        [ blank? ] trim-tail
+    ] with-directory ;
 
 : git-branch-destination ( -- dest )
     build-images-destination get

basis/editors/visual-studio-code/visual-studio-code.factor

@@ -1,6 +1,6 @@
 ! Copyright (C) 2015 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: combinators.extras combinators.short-circuit editors
+USING: combinators.short-circuit editors
 generalizations io.files io.pathnames io.standard-paths kernel
 make math.parser memoize namespaces sequences system tools.which ;
 IN: editors.visual-studio-code
@@ -35,7 +35,7 @@ M: linux find-visual-studio-code-invocation
         [ "Code" which ]
         [ home "VSCode-linux-x64/Code" append-path ]
         [ "/usr/share/code/code" ]
-    } [ [ exists? ] ?1arg ] map-compose 0|| ;
+    } [ dup exists? [ drop f ] unless ] map-compose 0|| ;
 
 M: windows find-visual-studio-code-invocation
     {

basis/english/english.factor

@@ -1,9 +1,8 @@
 ! Copyright (C) 2015, 2018 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
-USING: accessors arrays assocs assocs.extras combinators
+USING: accessors arrays assocs combinators help.markup kernel
-help.markup kernel literals locals math math.parser sequences
+literals locals math math.order math.parser sequences splitting
-sequences.extras splitting unicode words ;
+unicode words ;
-
 IN: english
 
 <PRIVATE
@@ -95,7 +94,7 @@ CONSTANT: singular-to-plural H{
 }
 >>
 
-CONSTANT: plural-to-singular $[ singular-to-plural assoc-invert ]
+CONSTANT: plural-to-singular $[ singular-to-plural [ swap ] assoc-map ]
 
 :: match-case ( master disciple -- master' )
     {
@@ -168,8 +167,11 @@ PRIVATE>
 : ?plural-article ( word -- article )
     dup singular? [ a/an ] [ drop "the" ] if ;
 
-: comma-list ( parts conjunction  -- clause-seq )
+: comma-list ( parts conjunction -- clause-seq )
-    [ ", " interleaved ] dip over length dup 3 >= [
+    [
+        [ length dup 1 [-] + ", " <array> ]
+        [ [ 2 * pick set-nth ] each-index ] bi
+    ] dip over length dup 3 >= [
         [ 3 > ", " " " ? " " surround ] [ 2 - pick set-nth ] bi
     ] [ 2drop ] if ;
 

basis/escape-strings/escape-strings.factor

@@ -1,7 +1,7 @@
 ! Copyright (C) 2017 John Benediktsson, Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: assocs assocs.extras combinators kernel math math.order
+USING: assocs combinators kernel math math.order
-math.statistics sequences sequences.extras sets ;
+math.statistics sequences sets ;
 IN: escape-strings
 
 : find-escapes ( str -- set )
@@ -32,7 +32,7 @@ IN: escape-strings
     [ escape-string ] dip prepend ;
 
 : escape-simplest ( str -- str' )
-    dup { CHAR: ' CHAR: " CHAR: \r CHAR: \n CHAR: \s } counts {
+    dup histogram {
         ! { [ dup { CHAR: ' CHAR: \r CHAR: \n CHAR: \s } values-of sum 0 = ] [ drop "'" prepend ] }
         { [ dup CHAR: " of not ] [ drop "\"" "\"" surround ] }
         [ drop escape-string ]

basis/furnace/furnace.factor

@@ -25,4 +25,4 @@ USE: vocabs
 "furnace.scopes" require
 "furnace.sessions" require
 "furnace.syndication" require
-"webapps.user-admin" require
+! "webapps.user-admin" require

basis/io/encodings/utf7/utf7.factor

@@ -1,7 +1,7 @@
 ! Copyright (C) 2013-2014 Björn Lindqvist
 ! See http://factorcode.org/license.txt for BSD license
-USING: accessors ascii base64 fry grouping.extras io
+USING: accessors ascii assocs base64 fry io io.encodings
-io.encodings io.encodings.string io.encodings.utf16 kernel math
+io.encodings.string io.encodings.utf16 kernel math
 math.functions sequences splitting strings ;
 IN: io.encodings.utf7
 
@@ -28,13 +28,13 @@ TUPLE: utf7codec dialect buffer ;
 : raw-base64> ( str -- str' )
     dup length 4 / ceiling 4 * CHAR: = pad-tail base64> utf16be decode ;
 
-: encode-chunk ( repl-pair surround-pair chunk ascii? -- bytes )
+: encode-chunk ( repl-pair surround-pair chunk printable? -- bytes )
     [ swap [ first ] [ concat ] bi replace nip ]
     [ >raw-base64 -rot [ first2 replace ] [ first2 surround ] bi* ] if ;
 
 : encode-utf7-string ( str codec -- bytes )
-    [ [ printable? ] group-by ] dip
+    [ [ printable? ] collect-by ] dip dialect>> first2
-    dialect>> first2 '[ _ _ rot first2 swap encode-chunk ] map
+    '[ [ _ _ ] 2dip swap encode-chunk ] { } assoc>map
     B{ } concat-as ;
 
 M: utf7codec encode-string ( str stream codec -- )

basis/math/matrices/matrices.factor

@@ -4,8 +4,8 @@ USING: accessors arrays classes.singleton columns combinators
 combinators.short-circuit combinators.smart formatting fry
 grouping kernel locals math math.bits math.functions math.order
 math.private math.ranges math.statistics math.vectors
-math.vectors.private sequences sequences.deep sequences.extras
+math.vectors.private sequences sequences.deep sequences.private
-sequences.private slots.private summary ;
+slots.private summary ;
 IN: math.matrices
 
 ! defined here because of issue #1943

basis/sequences/deep/deep-tests.factor

@@ -47,3 +47,7 @@ IN: sequences.deep.tests
         dup integer? [ even? [ 1 + ] when ] [ drop ] if
     ] deep-reduce
 ] unit-test
+
+{ V{ 1 } } [ 1 flatten1 ] unit-test
+{ { 1 2 3 } } [ { 1 2 3 } flatten1 ] unit-test
+{ { 1 2 3 { { 4 } } } } [ { 1 { 2 } { 3 { { 4 } } } } flatten1 ] unit-test

basis/sequences/deep/deep.factor

@@ -1,6 +1,6 @@
 ! Copyright (C) 2007, 2008 Daniel Ehrenberg, Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: sequences kernel strings math fry ;
+USING: fry kernel make math sequences strings ;
 IN: sequences.deep
 
 ! All traversal goes in postorder
@@ -69,3 +69,12 @@ M: object branch? drop f ;
 
 : flatten-as ( obj exemplar -- seq )
     [ branch? ] swap deep-reject-as ;
+
+: flatten1 ( obj -- seq )
+    [
+        [
+            dup branch? [
+                [ dup branch? [ % ] [ , ] if ] each
+            ] [ , ] if
+        ]
+    ] keep dup branch? [ drop f ] unless make ;

extra/cli/git/git.factor

@@ -9,8 +9,8 @@ IN: cli.git
 SYMBOL: cli-git-num-parallel
 cli-git-num-parallel [ cpus 2 * ] initialize
 
-: git-command>string ( quot -- string )
+: git-command>string ( desc -- string )
-    utf8 <process-reader> stream-contents [ blank? ] trim-tail ;
+    process-contents [ blank? ] trim-tail ;
 
 : git-clone-as ( uri path -- process ) [ { "git" "clone" } ] 2dip 2array append run-process ;
 : git-clone ( uri -- process ) [ { "git" "clone" } ] dip suffix run-process ;

extra/sequences/extras/extras-tests.factor

@@ -202,10 +202,6 @@ tools.test vectors vocabs ;
 { { 1 0 0 1 0 0 0 1 0 0 } }
 [ 1 { 0 3 7 } 10 0 <array> [ set-nths-unsafe ] keep ] unit-test
 
-{ V{ 1 } } [ 1 flatten1 ] unit-test
-{ { 1 2 3 } } [ { 1 2 3 } flatten1 ] unit-test
-{ { 1 2 3 { { 4 } } } } [ { 1 { 2 } { 3 { { 4 } } } } flatten1 ] unit-test
-
 { t 3 3 } [ 10 <iota> [ [ odd? ] [ 1 > ] bi* and ] map-find-index ] unit-test
 { f f f } [ 10 <iota> [ [ odd? ] [ 9 > ] bi* and ] map-find-index ] unit-test
 

extra/sequences/extras/extras.factor

@@ -481,15 +481,6 @@ PRIVATE>
 : set-nths-unsafe ( value indices seq -- )
     swapd '[ _ swap _ set-nth-unsafe ] each ; inline
 
-: flatten1 ( obj -- seq )
-    [
-        [
-            dup branch? [
-                [ dup branch? [ % ] [ , ] if ] each
-            ] [ , ] if
-        ]
-    ] keep dup branch? [ drop f ] unless make ;
-
 <PRIVATE
 
 : (map-find-index) ( seq quot find-quot -- result i elt )