Update alien.destructors for functor changes

db4
Slava Pestov 2009-01-28 15:03:00 -06:00
parent 50ba37bdbe
commit 7dd22ac130
1 changed files with 3 additions and 3 deletions
basis/alien/destructors

View File

@ -18,11 +18,11 @@ TUPLE: F-destructor alien disposed ;
: <F-destructor> ( alien -- destructor ) f F-destructor boa ; inline
M: F-destructor dispose* alien>> F execute ;
M: F-destructor dispose* alien>> F ;
: &F ( alien -- alien ) dup <F-destructor> execute &dispose drop ; inline
: &F ( alien -- alien ) dup <F-destructor> &dispose drop ; inline
: |F ( alien -- alien ) dup <F-destructor> execute |dispose drop ; inline
: |F ( alien -- alien ) dup <F-destructor> |dispose drop ; inline
;FUNCTOR