15 lines
329 B
Factor
Executable File
15 lines
329 B
Factor
Executable File
USING: kernel parser sequences words ;
|
|
IN: values
|
|
|
|
: VALUE:
|
|
CREATE-WORD { f } clone [ first ] curry define ; parsing
|
|
|
|
: set-value ( value word -- )
|
|
word-def first set-first ;
|
|
|
|
: get-value ( word -- value )
|
|
word-def first first ;
|
|
|
|
: change-value ( word quot -- )
|
|
over >r >r get-value r> call r> set-value ; inline
|