tools.deploy.shaker: load ui.debugger into UI apps deployed with debugging support

db4
Slava Pestov 2009-05-11 16:20:16 -05:00
parent 0a6c9e08a9
commit 4711768e6c
1 changed files with 9 additions and 6 deletions

View File

@ -41,7 +41,7 @@ IN: tools.deploy.shaker
] when
strip-dictionary? [
{
"compiler.units"
! "compiler.units"
"vocabs"
"vocabs.cache"
"source-files.errors"
@ -271,7 +271,7 @@ IN: tools.deploy.shaker
compiled-generic-crossref
compiler-impl
compiler.errors:compiler-errors
definition-observers
! definition-observers
interactive-vocabs
lexer-factory
print-use-hook
@ -301,16 +301,16 @@ IN: tools.deploy.shaker
compiler.errors:compiler-errors
continuations:thread-error-hook
} %
deploy-ui? get [
"ui-error-hook" "ui.gadgets.worlds" lookup ,
] when
] when
deploy-c-types? get [
"c-types" "alien.c-types" lookup ,
] unless
deploy-ui? get [
"ui-error-hook" "ui.gadgets.worlds" lookup ,
] when
"windows-messages" "windows.messages" lookup [ , ] when*
] { } make ;
@ -443,6 +443,9 @@ SYMBOL: deploy-vocab
strip-debugger? [
"debugger" require
"inspector" require
deploy-ui? get [
"ui.debugger" require
] when
] unless
deploy-vocab set
deploy-vocab get require