From b361e1b694168c00d3692e51fbcf602e3b0fd549 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 20 Sep 2010 21:11:53 -0700 Subject: [PATCH] webapps.mason.version.source: fix bugs discovered during 0.94 release --- extra/webapps/mason/version/source/source.factor | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/extra/webapps/mason/version/source/source.factor b/extra/webapps/mason/version/source/source.factor index ea3828335a..7050950614 100644 --- a/extra/webapps/mason/version/source/source.factor +++ b/extra/webapps/mason/version/source/source.factor @@ -20,7 +20,7 @@ IN: webapps.mason.version.source ".gitignore" delete-file ; : download-images ( -- ) - images [ download-image ] each ; + images [ boot-image-name download-image ] each ; : prepare-source ( git-id -- ) "factor" [ @@ -36,8 +36,10 @@ IN: webapps.mason.version.source : make-source-release ( version git-id -- path ) "Creating source release..." print flush [ - clone-factor prepare-source (make-source-release) - "Package created: " write absolute-path dup print + current-temporary-directory get [ + clone-factor prepare-source (make-source-release) + "Package created: " write absolute-path dup print + ] with-directory ] with-unique-directory drop ; : upload-source-release ( package version -- )