From f7a39798188741a1b54cb0015a45e8fc00aebf6c Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 28 Apr 2008 23:32:55 -0500
Subject: [PATCH 1/2] builder.release.branch: per platform directories for
clean images
---
extra/builder/release/branch/branch.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/extra/builder/release/branch/branch.factor b/extra/builder/release/branch/branch.factor
index 6218a2ea90..6b1266bb45 100644
--- a/extra/builder/release/branch/branch.factor
+++ b/extra/builder/release/branch/branch.factor
@@ -21,7 +21,7 @@ IN: builder.release.branch
{
"scp"
my-boot-image-name
- "factorcode.org:/var/www/factorcode.org/newsite/images/clean"
+ { "factorcode.org:/var/www/factorcode.org/newsite/images/clean/" platform }
}
to-strings
try-process ;
From 2c99f7c0a0681143dfc5e5d0cdf6b8d55ee2f736 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Tue, 29 Apr 2008 04:59:15 -0500
Subject: [PATCH 2/2] update: Update the clean image location
---
extra/update/update.factor | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/extra/update/update.factor b/extra/update/update.factor
index 9b10ea746f..1d25a9792e 100644
--- a/extra/update/update.factor
+++ b/extra/update/update.factor
@@ -22,7 +22,8 @@ IN: update
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: remote-clean-image ( -- url )
- "http://factorcode.org/images/clean/" my-boot-image-name append ;
+ { "http://factorcode.org/images/clean/" platform "/" my-boot-image-name }
+ to-string ;
: download-clean-image ( -- ) remote-clean-image download ;