Disposables are now registered in a global disposables set. To take advantage of...

[factor.git] / basis / alien / destructors / destructors.factor

diff --git a/basis/alien/destructors/destructors.factor b/basis/alien/destructors/destructors.factor
index 374d6425c44208a6f814709aeaf5f4d859c10388..24a75304b751c5a54e3bd22faf3aef0d4bf18f6f 100755 (executable)
--- a/basis/alien/destructors/destructors.factor
+++ b/basis/alien/destructors/destructors.factor
@@ -16,9 +16,10 @@ N [ F stack-effect out>> length ]
 
 WHERE
 
-TUPLE: F-destructor alien disposed ;
+TUPLE: F-destructor < disposable alien ;
 
-: <F-destructor> ( alien -- destructor ) f F-destructor boa ; inline
+: <F-destructor> ( alien -- destructor )
+    F-destructor new-disposable swap >>alien ; inline
 
 M: F-destructor dispose* alien>> F N ndrop ;