More progress on Uniscribe

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

diff --git a/basis/alien/destructors/destructors.factor b/basis/alien/destructors/destructors.factor
old mode 100644 (file)
new mode 100755 (executable)
index 1c5c975..374d642
--- a/basis/alien/destructors/destructors.factor
+++ b/basis/alien/destructors/destructors.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: functors destructors accessors kernel parser words
-combinators.smart ;
+effects generalizations sequences ;
 IN: alien.destructors
 
 SLOT: alien
@@ -12,6 +12,7 @@ F-destructor DEFINES-CLASS ${F}-destructor
 <F-destructor> DEFINES <${F}-destructor>
 &F DEFINES &${F}
 |F DEFINES |${F}
+N [ F stack-effect out>> length ]
 
 WHERE
 
@@ -19,7 +20,7 @@ TUPLE: F-destructor alien disposed ;
 
 : <F-destructor> ( alien -- destructor ) f F-destructor boa ; inline
 
-M: F-destructor dispose* [ alien>> F ] drop-outputs ;
+M: F-destructor dispose* alien>> F N ndrop ;
 
 : &F ( alien -- alien ) dup <F-destructor> &dispose drop ; inline