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

mrjbq7 · Feb 3, 2024 · c44ba7a · c44ba7a
1 parent 3fd0b93
commit c44ba7a
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 7 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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"