steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
basis/tools/deploy/shaker/shaker.factor
View File

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