steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

bootstrap.image.download: use my-boot-image-name.

db4
John Benediktsson 2014-11-15 16:20:02 -08:00
parent 2a89e5c2cc
commit f9e1b7c9fb
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/bootstrap/image/download/download.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2008, 2010 Slava Pestov. ! Copyright (C) 2008, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: http.client checksums checksums.md5 splitting assocs USING: assocs bootstrap.image checksums checksums.md5
kernel io.files bootstrap.image sequences io urls ; http.client io.files kernel splitting urls ;
IN: bootstrap.image.download IN: bootstrap.image.download
CONSTANT: url URL" http://downloads.factorcode.org/images/latest/" CONSTANT: url URL" http://downloads.factorcode.org/images/latest/"
@ -31,10 +31,9 @@ CONSTANT: url URL" http://downloads.factorcode.org/images/latest/"
bi ; bi ;
: maybe-download-image ( image -- ? ) : maybe-download-image ( image -- ? )
dup need-new-image? dup need-new-image? [ download-image t ] [ drop f ] if ;
[ download-image t ] [ drop f ] if ;
: download-my-image ( -- ) : download-my-image ( -- )
my-arch boot-image-name maybe-download-image drop ; my-boot-image-name maybe-download-image drop ;
MAIN: download-my-image MAIN: download-my-image