From 862223fa79f68cd883e3d776613c853f79034cc3 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 23 Mar 2009 22:36:51 -0500 Subject: [PATCH] Fix bunny deployment --- basis/tools/deploy/shaker/shaker.factor | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/basis/tools/deploy/shaker/shaker.factor b/basis/tools/deploy/shaker/shaker.factor index a729e40e2a..55433299ad 100755 --- a/basis/tools/deploy/shaker/shaker.factor +++ b/basis/tools/deploy/shaker/shaker.factor @@ -204,7 +204,8 @@ IN: tools.deploy.shaker ] when ; : 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 ) [ @@ -245,7 +246,8 @@ IN: tools.deploy.shaker strip-dictionary? [ "libraries" "alien" lookup , - { } { "cpu" "compiler" } strip-vocab-globals % + { { "yield-hook" "compiler.utilities" } } + { "cpu" "compiler" } strip-vocab-globals % { gensym