     ] { } make try-process ;
 
 : new-images ( -- )
-    "" resource-path
-      [ make-images compute-checksums upload-images ]
-    with-directory ;
+    [
+        make-images
+        compute-checksums
+        upload-images
+    ] with-resource-directory ;
 
 MAIN: new-images

    "slava_pestov@downloads.factorcode.org:downloads.factorcode.org/images/latest/"
    or ;

: checksums ( -- temp ) "checksums.txt" temp-file ;

: boot-image-names ( -- seq ) images [ boot-image-name ] map ;

: compute-checksums ( -- )
    checksums ascii [

! See http://factorcode.org/license.txt for BSD license.
USING: bootstrap.image checksums checksums.openssl io
io.directories io.encodings.ascii io.files io.files.temp
io.launcher kernel make namespaces sequences system ;
IN: bootstrap.image.upload

SYMBOL: upload-images-destination
