extra: use try-process instead of "run-process drop"

diff --git a/extra/docker/docker.factor b/extra/docker/docker.factor
index 4d2cea7bdd6e48039f9e60c08a126f740993ad6b..62e6674b9f0f30732b530d94731a3c353a70a1fe 100644 (file)
--- 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 a09ccf18f3d829c5d0488cf256185cabc9520e5c..c0b50ab94045a5eeb214a5e31ed9b15cb18af7d8 100644 (file)
--- 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 7efcc50ff931c0ebe2e72f34f4bd04ebeebec510..d01cf51a2c79f16193ea9fac6eb75a39abb28083 100644 (file)
--- 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 a5cbe54ef0c8cca120cf606b532df0ca50b23aa4..7836ec57ee49c581954dc2e654b43b2cb9ea43e1 100644 (file)
--- 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"