tools.deploy.shaker: strip out a few more things
parent
3aab93e278
commit
3174e81f98
|
@ -23,7 +23,13 @@ IN: tools.deploy.shaker
|
||||||
|
|
||||||
: strip-init-hooks ( -- )
|
: strip-init-hooks ( -- )
|
||||||
"Stripping startup hooks" show
|
"Stripping startup hooks" show
|
||||||
{ "cpu.x86" "command-line" "libc" "system" "environment" }
|
{
|
||||||
|
"command-line"
|
||||||
|
"cpu.x86"
|
||||||
|
"environment"
|
||||||
|
"libc"
|
||||||
|
"alien.strings"
|
||||||
|
}
|
||||||
[ init-hooks get delete-at ] each
|
[ init-hooks get delete-at ] each
|
||||||
deploy-threads? get [
|
deploy-threads? get [
|
||||||
"threads" init-hooks get delete-at
|
"threads" init-hooks get delete-at
|
||||||
|
@ -36,8 +42,12 @@ IN: tools.deploy.shaker
|
||||||
"io.backend" init-hooks get delete-at
|
"io.backend" init-hooks get delete-at
|
||||||
] when
|
] when
|
||||||
strip-dictionary? [
|
strip-dictionary? [
|
||||||
"compiler.units" init-hooks get delete-at
|
{
|
||||||
"vocabs.cache" init-hooks get delete-at
|
"compiler.units"
|
||||||
|
"vocabs"
|
||||||
|
"vocabs.cache"
|
||||||
|
"source-files.errors"
|
||||||
|
} [ init-hooks get delete-at ] each
|
||||||
] when ;
|
] when ;
|
||||||
|
|
||||||
: strip-debugger ( -- )
|
: strip-debugger ( -- )
|
||||||
|
@ -260,21 +270,20 @@ IN: tools.deploy.shaker
|
||||||
compiler.errors:compiler-errors
|
compiler.errors:compiler-errors
|
||||||
definition-observers
|
definition-observers
|
||||||
interactive-vocabs
|
interactive-vocabs
|
||||||
layouts:num-tags
|
|
||||||
layouts:num-types
|
|
||||||
layouts:tag-mask
|
|
||||||
layouts:tag-numbers
|
|
||||||
layouts:type-numbers
|
|
||||||
lexer-factory
|
lexer-factory
|
||||||
print-use-hook
|
print-use-hook
|
||||||
root-cache
|
root-cache
|
||||||
source-files.errors:error-types
|
source-files.errors:error-types
|
||||||
|
source-files.errors:error-observers
|
||||||
vocabs:dictionary
|
vocabs:dictionary
|
||||||
vocabs:load-vocab-hook
|
vocabs:load-vocab-hook
|
||||||
|
vocabs:vocab-observers
|
||||||
word
|
word
|
||||||
parser-notes
|
parser-notes
|
||||||
} %
|
} %
|
||||||
|
|
||||||
|
{ } { "layouts" } strip-vocab-globals %
|
||||||
|
|
||||||
{ } { "math.partial-dispatch" } strip-vocab-globals %
|
{ } { "math.partial-dispatch" } strip-vocab-globals %
|
||||||
|
|
||||||
{ } { "peg" } strip-vocab-globals %
|
{ } { "peg" } strip-vocab-globals %
|
||||||
|
|
Loading…
Reference in New Issue