namespaces: Rename ``bind`` to ``with-variables``. Update a few places that called...

[factor.git] / basis / tools / deploy / shaker / strip-cocoa.factor

diff --git a/basis/tools/deploy/shaker/strip-cocoa.factor b/basis/tools/deploy/shaker/strip-cocoa.factor
index 288d192e3b184eceedb80f9361283d334d6f4341..283d888bbb9a8977cdf2f62a8887c880e34ead01 100644 (file)
--- a/basis/tools/deploy/shaker/strip-cocoa.factor
+++ b/basis/tools/deploy/shaker/strip-cocoa.factor
@@ -14,7 +14,7 @@ IN: tools.deploy.shaker.cocoa
 : pool-values ( assoc -- assoc' ) [ pool-array ] assoc-map ;
 
 H{ } clone \ pool [
-    global [
+    [
         ! Only keeps those methods that we actually call
         sent-messages get super-sent-messages get assoc-union
         objc-methods [ assoc-intersect pool-values ] change
@@ -34,7 +34,7 @@ H{ } clone \ pool [
         ! We need this for strip-stack-traces to work fully
         { message-senders super-message-senders }
         [ get values compile ] each
-    ] bind
+    ] with-global
 ] with-variable
 
 \ make-prepare-send reset-memoized