steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

moved change-global to namespaces

db4
Sam Anklesaria 2009-04-28 20:37:00 -05:00
parent d3cd8b9a46
commit 53302edb15
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
core/namespaces/namespaces.factor
View File

@ -24,6 +24,7 @@ PRIVATE>
: get-global ( variable -- value ) global at ; : get-global ( variable -- value ) global at ;
: set-global ( value variable -- ) global set-at ; : set-global ( value variable -- ) global set-at ;
: change ( variable quot -- ) [ [ get ] keep ] dip dip set ; inline : 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 ; : +@ ( n variable -- ) [ 0 or + ] change ;
: inc ( variable -- ) 1 swap +@ ; inline : inc ( variable -- ) 1 swap +@ ; inline
: dec ( variable -- ) -1 swap +@ ; inline : dec ( variable -- ) -1 swap +@ ; inline

2
extra/modules/rpc-server/rpc-server.factor
View File

@ -31,8 +31,6 @@ MEMO: mem-do-rpc ( args word -- bytes ) do-rpc ; inline
SYNTAX: service \ do-rpc "executer" set (service) ; SYNTAX: service \ do-rpc "executer" set (service) ;
SYNTAX: mem-service \ mem-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 [ load-vocab-hook [
[ dup words>> values [ dup words>> values
\ mem-do-rpc "memoize" word-prop [ delete-at ] curry each ] \ mem-do-rpc "memoize" word-prop [ delete-at ] curry each ]