extra/self/self.factor

   1
   2 USING: kernel namespaces vars ;
   3
   4 IN: self
   5
   6 VAR: self
   7
   8 : with-self ( quot obj -- ) [ >self call ] with-scope ;
   9
  10 : save-self ( quot -- ) self> >r self> clone >self call r> >self ;
  11
  12 ! : save-self ( quot -- ) [ self> clone >self call ] with-scope ;