diff options
author | Doug Coleman <doug.coleman@gmail.com> | 2024-04-15 13:43:29 -0500 |
---|---|---|
committer | Doug Coleman <doug.coleman@gmail.com> | 2024-04-15 13:43:54 -0500 |
commit | c79ee58fc6acf5e30908cd8bd4f492924fc4d1a7 (patch) | |
tree | 64fce1a2c1b9deb734b9c362734f00ab98362d20 | |
parent | 4bdd5390cf69189d190f9ff8f1fc2ae399d203ad (diff) |
build-from-source: remove ?download word, it's just download-once
-rw-r--r-- | extra/build-from-source/build-from-source.factor | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/extra/build-from-source/build-from-source.factor b/extra/build-from-source/build-from-source.factor index 02b5826d79..5520619e48 100644 --- 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 |