continuations[-docs]: add the finally word

[factor.git] / core / alien / alien.factor

diff --git a/core/alien/alien.factor b/core/alien/alien.factor
index 9940151b61e6f2e70f792ebb50e92f8fbc03f20e..f1762e170099444127d9ea681a122ce5f7fff74a 100644 (file)
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@@ -131,7 +131,7 @@ PRIVATE>
     [ callbacks get delete-values ] [ free-callback ] bi ;
 
 : with-callback ( alien quot -- )
-    over [ unregister-and-free-callback ] curry [ ] cleanup ; inline
+    over [ unregister-and-free-callback ] curry finally ; inline
 
 : initialize-alien ( symbol quot -- )
     swap dup get-global dup recompute-value?