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

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

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

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