Windows deploy fix

release
Slava Pestov 2007-12-12 02:34:14 -05:00
parent 37227b8e68
commit 68268bff0e
1 changed files with 3 additions and 1 deletions
extra/tools/deploy/windows

View File

@ -1,7 +1,8 @@
! Copyright (C) 2007 Slava Pestov. ! Copyright (C) 2007 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: io io.files kernel namespaces sequences system USING: io io.files kernel namespaces sequences system
tools.deploy tools.deploy.config assocs hashtables prettyprint ; tools.deploy tools.deploy.config assocs hashtables prettyprint
windows.shell32 windows.user32 ;
IN: tools.deploy.windows IN: tools.deploy.windows
: copy-vm ( executable bundle-name -- vm ) : copy-vm ( executable bundle-name -- vm )
@ -38,4 +39,5 @@ M: windows-deploy-implementation deploy
[ deploy-name get create-exe-dir ] keep [ deploy-name get create-exe-dir ] keep
[ deploy-name get image-name ] keep [ deploy-name get image-name ] keep
namespace namespace
deploy-name get open-in-explorer
] bind deploy* ; ] bind deploy* ;