moved change-global to namespaces

diff --git a/core/namespaces/namespaces.factor b/core/namespaces/namespaces.factor
index b0e764c94d96244a31a45c71a6c0a7bd03fb8bc0..977e5a296167b815c91a30c67f4d6fe2c2404f2b 100644 (file)
--- a/core/namespaces/namespaces.factor
+++ b/core/namespaces/namespaces.factor
@@ -24,6 +24,7 @@ PRIVATE>
 : get-global ( variable -- value ) global at ;
 : set-global ( value variable -- ) global set-at ;
 : change ( variable quot -- ) [ [ get ] keep ] dip dip set ; inline
+: change-global ( var quot -- ) [ [ get-global ] keep ] dip dip set-global ; inline
 : +@ ( n variable -- ) [ 0 or + ] change ;
 : inc ( variable -- ) 1 swap +@ ; inline
 : dec ( variable -- ) -1 swap +@ ; inline

diff --git a/extra/modules/rpc-server/rpc-server.factor b/extra/modules/rpc-server/rpc-server.factor
index 63d5a870b4152d2360ec2927fe1ac88100de73f7..525ff35a09d72b19c6c00737f96c77bb46b182dd 100644 (file)
--- a/extra/modules/rpc-server/rpc-server.factor
+++ b/extra/modules/rpc-server/rpc-server.factor
@@ -31,8 +31,6 @@ MEMO: mem-do-rpc ( args word -- bytes ) do-rpc ; inline
 SYNTAX: service \ do-rpc  "executer" set (service) ;
 SYNTAX: mem-service \ mem-do-rpc "executer" set (service) ;
 
-: change-global ( var quot -- ) [ [ get-global ] keep ] dip dip set-global ; inline
-
 load-vocab-hook [
    [ dup words>> values
    \ mem-do-rpc "memoize" word-prop [ delete-at ] curry each ]