12 lines
245 B
Factor
12 lines
245 B
Factor
|
|
||
|
|
USING: kernel namespaces vars ;
|
||
|
|
|
||
|
|
IN: self
|
||
|
|
|
||
|
|
VAR: self
|
||
|
|
|
||
|
|
: with-self ( quot obj -- ) [ >self call ] with-scope ;
|
||
|
|
|
||
|
|
: save-self ( quot -- ) self> >r self> clone >self call r> >self ;
|
||
|
|
|
||
|
|
! : save-self ( quot -- ) [ self> clone >self call ] with-scope ;
|