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

Tree shaker now strips out some more PEG stuff

db4
Slava Pestov 2008-12-03 08:12:28 -06:00
parent d60c79c9bf
commit 4102857694
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -109,6 +109,7 @@ IN: tools.deploy.shaker
"default-method" "default-method"
"default-output-classes" "default-output-classes"
"derived-from" "derived-from"
"ebnf-parser"
"engines" "engines"
"forgotten" "forgotten"
"identities" "identities"
@ -269,8 +270,8 @@ IN: tools.deploy.shaker
} % } %
{ } { "math.partial-dispatch" } strip-vocab-globals % { } { "math.partial-dispatch" } strip-vocab-globals %
"peg-cache" "peg" lookup , { } { "peg" } strip-vocab-globals %
] when ] when
strip-prettyprint? [ strip-prettyprint? [
@ -346,7 +347,7 @@ IN: tools.deploy.shaker
: finish-deploy ( final-image -- ) : finish-deploy ( final-image -- )
"Finishing up" show "Finishing up" show
>r { } set-datastack r> [ { } set-datastack ] dip
{ } set-retainstack { } set-retainstack
V{ } set-namestack V{ } set-namestack
V{ } set-catchstack V{ } set-catchstack
@ -387,9 +388,9 @@ SYMBOL: deploy-vocab
strip-c-io strip-c-io
f 5 setenv ! we can't use the Factor debugger or Factor I/O anymore f 5 setenv ! we can't use the Factor debugger or Factor I/O anymore
deploy-vocab get vocab-main set-boot-quot* deploy-vocab get vocab-main set-boot-quot*
stripped-word-props >r stripped-word-props
stripped-globals strip-globals stripped-globals strip-globals
r> strip-words strip-words
compress-byte-arrays compress-byte-arrays
compress-quotations compress-quotations
compress-strings compress-strings