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

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

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

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