1 USING: accessors kernel parser sequences words effects ;
5 CREATE-WORD { f } clone [ first ] curry
6 (( -- value )) define-declared ; parsing
8 : set-value ( value word -- )
9 def>> first set-first ;
11 : get-value ( word -- value )
14 : change-value ( word quot -- )
15 over >r >r get-value r> call r> set-value ; inline