From 80bd1aef1cf76aeb9a4a6a46dffe44280ba9a534 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Mon, 21 Nov 2011 14:20:57 -0800 Subject: [PATCH] tools.deploy.backend: make-deploy-image back out So "deploy-image-only" still works --- basis/tools/deploy/backend/backend.factor | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/basis/tools/deploy/backend/backend.factor b/basis/tools/deploy/backend/backend.factor index 70a7003cd9..c0546bf85b 100644 --- a/basis/tools/deploy/backend/backend.factor +++ b/basis/tools/deploy/backend/backend.factor @@ -120,12 +120,15 @@ DEFER: ?make-staging-image [ "invalid vocab manifest!" throw ] if ] if-empty ; -:: make-deploy-image-executable ( vm image vocab config -- manifest ) +:: make-deploy-image ( vm image vocab config -- manifest ) make-boot-image vocab "vocab-manifest-" prepend temp-file :> manifest-file image vocab manifest-file config deploy-command-line :> flags vm flags run-factor - image vm embed-image manifest-file parse-vocab-manifest-file ; +:: make-deploy-image-executable ( vm image vocab config -- manifest ) + vm image vocab config make-deploy-image + image vm embed-image ; + HOOK: deploy* os ( vocab -- )