Tree-shaker now merges wrappers; saves a few kb

db4
sheeple 2008-11-28 01:14:33 -06:00
parent 92cc760070
commit 9c40cb4a05
1 changed files with 5 additions and 1 deletions

View File

@ -343,6 +343,9 @@ IN: tools.deploy.shaker
: compress-strings ( -- )
[ string? ] [ ] "strings" compress ;
: compress-wrappers ( -- )
[ wrapper? ] [ ] "wrappers" compress ;
: finish-deploy ( final-image -- )
"Finishing up" show
>r { } set-datastack r>
@ -391,7 +394,8 @@ SYMBOL: deploy-vocab
r> strip-words
compress-byte-arrays
compress-quotations
compress-strings ;
compress-strings
compress-wrappers ;
: (deploy) ( final-image vocab config -- )
#! Does the actual work of a deployment in the slave