factor: update download to return path and using lists

[factor.git] / extra / build-from-source / build-from-source.factor

diff --git a/extra/build-from-source/build-from-source.factor b/extra/build-from-source/build-from-source.factor
index c4f2c29ea94e4310b3437c3664ca4ee93e07dd27..02b5826d790305b673c034572265e91f42186438 100644 (file)
--- a/extra/build-from-source/build-from-source.factor
+++ b/extra/build-from-source/build-from-source.factor
@@ -2,11 +2,12 @@
 ! See https://factorcode.org/license.txt for BSD license.
 USING: accessors arrays assocs calendar calendar.format cli.git
 combinators combinators.short-circuit continuations formatting
-github html.parser html.parser.analyzer http.client io
-io.directories io.encodings.string io.encodings.utf8 io.files
-io.launcher io.pathnames json kernel layouts math namespaces qw
-semver sequences sequences.extras sorting sorting.human
-sorting.specification splitting system unicode ;
+github html.parser html.parser.analyzer http.client
+http.download io io.directories io.encodings.string
+io.encodings.utf8 io.files io.launcher io.pathnames json kernel
+layouts math namespaces qw semver sequences sequences.extras
+sorting sorting.human sorting.specification splitting system
+unicode ;
 IN: build-from-source
 
 INITIALIZED-SYMBOL: use-gitlab-git-uris [ f ]
@@ -184,7 +185,7 @@ ERROR: no-output-file path ;
     ] with-directory ; inline
 
 : ?download ( path -- )
-    dup file-name file-exists? [ drop ] [ download ] if ; inline
+    dup file-name file-exists? [ drop ] [ download drop ] if ; inline
 
 : with-tar-gz ( path quot -- )
     '[