tools.deploy.shaker: Only strip out compiler classes if user doesn't request full environment

db4
Slava Pestov 2009-05-12 16:56:36 -05:00
parent d43ed4da21
commit f9d711c307
1 changed files with 6 additions and 4 deletions

View File

@ -195,10 +195,12 @@ IN: tools.deploy.shaker
2drop ;
: strip-compiler-classes ( -- )
"Stripping compiler classes" show
{ "compiler" "stack-checker" }
[ child-vocabs [ words ] map concat [ class? ] filter ] map concat
[ dup implementors [ "methods" word-prop delete-at ] with each ] each ;
strip-dictionary? [
"Stripping compiler classes" show
{ "compiler" "stack-checker" }
[ child-vocabs [ words ] map concat [ class? ] filter ] map concat
[ dup implementors [ "methods" word-prop delete-at ] with each ] each
] when ;
: strip-default-methods ( -- )
strip-debugger? [