diff --git a/basis/tools/deploy/test/test.factor b/basis/tools/deploy/test/test.factor index d8414baba7..bc458dde36 100644 --- a/basis/tools/deploy/test/test.factor +++ b/basis/tools/deploy/test/test.factor @@ -7,7 +7,7 @@ IN: tools.deploy.test [ "test.image" temp-file delete-file ] ignore-errors "resource:" [ [ vm "test.image" temp-file ] dip - dup deploy-config make-deploy-image + dup deploy-config make-deploy-image drop ] with-directory ; ERROR: image-too-big actual-size max-size ; diff --git a/basis/tools/deploy/unix/unix.factor b/basis/tools/deploy/unix/unix.factor index f88cf06ef7..2646f2d5a4 100644 --- a/basis/tools/deploy/unix/unix.factor +++ b/basis/tools/deploy/unix/unix.factor @@ -7,7 +7,6 @@ tools.deploy.config.editor assocs hashtables prettyprint ; IN: tools.deploy.unix : create-app-dir ( vocab bundle-name -- vm ) - dup "" copy-theme copy-vm dup OCT: 755 set-file-permissions ; @@ -20,6 +19,7 @@ M: unix deploy* ( vocab -- ) [ bundle-name create-app-dir ] keep [ bundle-name image-name ] keep namespace make-deploy-image + bundle-name "" copy-resources bundle-name normalize-path [ "Binary deployed to " % % "." % ] "" make print ] bind - ] with-directory ; \ No newline at end of file + ] with-directory ; diff --git a/basis/tools/deploy/windows/windows.factor b/basis/tools/deploy/windows/windows.factor index f21f4ac363..4dad875128 100644 --- a/basis/tools/deploy/windows/windows.factor +++ b/basis/tools/deploy/windows/windows.factor @@ -16,20 +16,18 @@ IN: tools.deploy.windows : create-exe-dir ( vocab bundle-name -- vm ) dup copy-dll - deploy-ui? get [ - [ "" copy-theme ] [ ".exe" copy-vm ] bi - ] [ ".com" copy-vm ] if ; + deploy-ui? get ".exe" ".com" ? copy-vm ; M: winnt deploy* "resource:" [ dup deploy-config [ deploy-name get - [ + { [ create-exe-dir ] [ image-name ] - [ drop ] - 2tri namespace make-deploy-image - ] - [ nip open-in-explorer ] 2bi + [ drop namespace make-deploy-image ] + [ nip "" copy-resources ] + [ nip open-in-explorer ] + } 2cleave ] bind ] with-directory ;