USING: kernel namespaces vars ;

IN: self

VAR: self

: with-self ( quot obj -- ) [ >self call ] with-scope ;

: save-self ( quot -- ) self> [ self> clone >self call ] dip >self ;