extra/values/values.factor

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