bootstrap.image.upload: force ipv4 for image uploads

My ubuntu 22.10 is trying to use ipv6 which times out or takes forever
with factorcode. Instead, force ipv4 for now.

diff --git a/basis/bootstrap/image/upload/upload.factor b/basis/bootstrap/image/upload/upload.factor
index 90a887dde2eac1106671d0e6ee6ae6a0d283e0d7..d9fc0acabad0db1eaf34f236353b6ac04f1987f1 100644 (file)
--- a/basis/bootstrap/image/upload/upload.factor
+++ b/basis/bootstrap/image/upload/upload.factor
@@ -52,6 +52,7 @@ SYMBOL: build-images-destination
 : upload-images ( -- )
     [
         \ scp-name get-global scp-name or ,
+        "-4" , ! force ipv4
         boot-image-names %
         checksums-path ,
         git-branch-destination [ print flush ] [ , ] bi
@@ -86,6 +87,7 @@ SYMBOL: build-images-destination
     [
         [
             \ scp-name get-global scp-name or ,
+            "-4" , ! force ipv4
             "." directory-files %
             build-destination ,
         ] { } make try-process
@@ -94,6 +96,7 @@ SYMBOL: build-images-destination
 : create-remote-upload-directory ( -- )
     '[
         "ssh" ,
+        "-4" , ! force ipv4
         "sheeple@downloads.factorcode.org" ,
         "mkdir -p downloads.factorcode.org/images/" factor-git-branch append ,
     ] { } make try-process ;