build-from-source: remove ?download word, it's just download-once

diff --git a/extra/build-from-source/build-from-source.factor b/extra/build-from-source/build-from-source.factor
index 02b5826d790305b673c034572265e91f42186438..5520619e48774b4f669f36b62732aa7efd99fed8 100644 (file)
--- a/extra/build-from-source/build-from-source.factor
+++ b/extra/build-from-source/build-from-source.factor
@@ -184,9 +184,6 @@ ERROR: no-output-file path ;
         ] if*
     ] with-directory ; inline
 
-: ?download ( path -- )
-    dup file-name file-exists? [ drop ] [ download drop ] if ; inline
-
 : with-tar-gz ( path quot -- )
     '[
         _ dup "build-from-source considering tar.gz %s" sprintf print
@@ -195,10 +192,10 @@ ERROR: no-output-file path ;
         ] [
             "- building..." write
             [
-                [ ?download ]
-                [ file-name { "tar" "xvfz" } swap suffix try-process ]
-                [ file-name ".tar.gz" ?tail drop ] tri
-                prepend-current-path _ with-directory
+                download-once
+                [ { "tar" "xvfz" } swap suffix try-process ]
+                [ ".tar.gz" ?tail drop ] bi
+                _ with-directory
                 now timestamp>rfc3339
             ] dip utf8 set-file-contents
             "done!" print