]> gitweb.factorcode.org Git - factor.git/commitdiff
Fix bunny deployment
authorSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Tue, 24 Mar 2009 03:36:51 +0000 (22:36 -0500)
committerSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Tue, 24 Mar 2009 03:36:51 +0000 (22:36 -0500)
basis/tools/deploy/shaker/shaker.factor

index a729e40e2a670f6798a8d5aca202d766cdd229e5..55433299ad268258bb3d3d22608c49480cb30c01 100755 (executable)
@@ -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