tools.deploy.backend: make-deploy-image back out

So "deploy-image-only" still works
db4
Joe Groff 2011-11-21 14:20:57 -08:00
parent 932315a852
commit 80bd1aef1c
1 changed files with 5 additions and 2 deletions

View File

@ -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 -- )