From c44ba7a45d7110088d69cee09f7429a3b6904388 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 3 Feb 2024 11:14:45 -0800
Subject: [PATCH] extra: use try-process instead of "run-process drop"

---
 extra/docker/docker.factor                        | 2 +-
 extra/git/git-tests.factor                        | 6 +++---
 extra/machine-learning/data-sets/data-sets.factor | 2 +-
 extra/zoneinfo/update/update.factor               | 4 ++--
 4 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/extra/docker/docker.factor b/extra/docker/docker.factor
index 4d2cea7bdd..62e6674b9f 100644
--- a/extra/docker/docker.factor
+++ b/extra/docker/docker.factor
@@ -66,7 +66,7 @@ SYMBOL: docker-password
         docker-path "login"
         "-p" docker-password get-global
         "-u" docker-username get-global
-    } run-process drop ;
+    } try-process ;
 
 GENERIC: docker-pull ( obj -- )
 
diff --git a/extra/git/git-tests.factor b/extra/git/git-tests.factor
index a09ccf18f3..c0b50ab940 100644
--- a/extra/git/git-tests.factor
+++ b/extra/git/git-tests.factor
@@ -6,15 +6,15 @@ IN: git.tests
 
 : with-empty-test-git-repo ( quot -- )
     '[
-        { "git" "init" } run-process drop
+        { "git" "init" } try-process
         @
     ] with-test-directory ; inline
 
 : with-zero-byte-file-repo ( quot -- )
     '[
         "empty-file" touch-file
-        { "git" "add" "empty-file" } run-process drop
-        { "git" "commit" "-m" "initial commit of empty file" } run-process drop
+        { "git" "add" "empty-file" } try-process
+        { "git" "commit" "-m" "initial commit of empty file" } try-process
         @
     ] with-empty-test-git-repo ; inline
 
diff --git a/extra/machine-learning/data-sets/data-sets.factor b/extra/machine-learning/data-sets/data-sets.factor
index 7efcc50ff9..d01cf51a2c 100644
--- a/extra/machine-learning/data-sets/data-sets.factor
+++ b/extra/machine-learning/data-sets/data-sets.factor
@@ -76,7 +76,7 @@ PRIVATE>
     ] with-directory ;
 
 : gzip-decompress-file ( path -- )
-    { "gzip" "-d" } swap suffix run-process drop ;
+    { "gzip" "-d" } swap suffix try-process ;
 
 : mnist-data>array ( bytes -- seq )
     16 tail-slice 28 28 * <groups> [
diff --git a/extra/zoneinfo/update/update.factor b/extra/zoneinfo/update/update.factor
index a5cbe54ef0..7836ec57ee 100644
--- a/extra/zoneinfo/update/update.factor
+++ b/extra/zoneinfo/update/update.factor
@@ -10,8 +10,8 @@ IN: zoneinfo.update
 
 : update-zoneinfo ( -- )
     "eggert" "tz" zoneinfo-versions last [
-        { "make" "leapseconds" } run-process drop
-        { "make" "version" } run-process drop
+        { "make" "leapseconds" } try-process
+        { "make" "version" } try-process
         "vocab:zoneinfo" [
             {
                 "africa"
-- 
2.34.1