moved change-global to namespaces
parent
d3cd8b9a46
commit
53302edb15
|
@ -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
|
||||||
|
|
|
@ -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 ]
|
||||||
|
|
Loading…
Reference in New Issue