Fix bunny deployment

db4
Slava Pestov 2009-03-23 22:36:51 -05:00
parent 7a4a7474e8
commit 862223fa79
1 changed files with 4 additions and 2 deletions

View File

@ -204,7 +204,8 @@ IN: tools.deploy.shaker
] when ; ] when ;
: strip-vocab-globals ( except names -- words ) : strip-vocab-globals ( except names -- words )
[ child-vocabs [ words ] map concat ] map concat swap diff ; [ child-vocabs [ words ] map concat ] map concat
swap [ first2 lookup ] map sift diff ;
: stripped-globals ( -- seq ) : stripped-globals ( -- seq )
[ [
@ -245,7 +246,8 @@ IN: tools.deploy.shaker
strip-dictionary? [ strip-dictionary? [
"libraries" "alien" lookup , "libraries" "alien" lookup ,
{ } { "cpu" "compiler" } strip-vocab-globals % { { "yield-hook" "compiler.utilities" } }
{ "cpu" "compiler" } strip-vocab-globals %
{ {
gensym gensym