Fixing deployment tool for Windows
parent
928c68b506
commit
0142d96238
|
@ -48,8 +48,8 @@ IN: tools.deploy.shaker
|
|||
[ f over set-word-name f swap set-word-vocabulary ] each ;
|
||||
|
||||
: strip-word-defs ( words -- )
|
||||
"Stripping unoptimized definitions from optimized words" show
|
||||
[ compiled? ] subset [ [ ] swap set-word-def ] each ;
|
||||
"Stripping symbolic word definitions" show
|
||||
[ [ ] swap set-word-def ] each ;
|
||||
|
||||
: strip-word-props ( retain-props words -- )
|
||||
"Stripping word properties" show
|
||||
|
@ -109,10 +109,6 @@ SYMBOL: deploy-vocab
|
|||
builtins ,
|
||||
strip-io? [ io-backend , ] unless
|
||||
|
||||
deploy-compiler? get [
|
||||
"callbacks" "alien.compiler" lookup ,
|
||||
] when
|
||||
|
||||
strip-dictionary? [
|
||||
{
|
||||
dictionary
|
||||
|
@ -154,11 +150,14 @@ SYMBOL: deploy-vocab
|
|||
] when
|
||||
] { } make dup . ;
|
||||
|
||||
: strip ( hook -- )
|
||||
>r strip-libc
|
||||
: strip-recompile-hook ( -- )
|
||||
[ [ f ] { } map>assoc ] recompile-hook set-global ;
|
||||
|
||||
: strip ( -- )
|
||||
strip-libc
|
||||
strip-cocoa
|
||||
strip-debugger
|
||||
r> [ call ] when*
|
||||
strip-recompile-hook
|
||||
strip-init-hooks
|
||||
deploy-vocab get vocab-main set-boot-quot*
|
||||
retained-props >r
|
||||
|
@ -171,8 +170,6 @@ SYMBOL: deploy-vocab
|
|||
[
|
||||
[
|
||||
deploy-vocab set
|
||||
parse-hook get
|
||||
parse-hook off
|
||||
deploy-vocab get require
|
||||
strip
|
||||
finish-deploy
|
||||
|
|
|
@ -37,8 +37,8 @@ M: windows-deploy-implementation deploy*
|
|||
stage1
|
||||
"." resource-path cd
|
||||
dup deploy-config [
|
||||
[
|
||||
[ deploy-name get create-exe-dir ] keep
|
||||
[ deploy-name get image-name ] keep
|
||||
] bind
|
||||
] keep stage2 open-in-explorer ;
|
||||
[ deploy-name get create-exe-dir ] keep
|
||||
[ deploy-name get image-name ] keep
|
||||
[ namespace stage2 ] keep
|
||||
open-in-explorer
|
||||
] bind ;
|
||||
|
|
Loading…
Reference in New Issue