continuations[-docs]: add the finally word

[factor.git] / basis / x11 / xim / xim.factor

diff --git a/basis/x11/xim/xim.factor b/basis/x11/xim/xim.factor
index 0f8bd482002a4f5d1d356801009cbf3f3502d977..db64d916e0c5125c29114a7ee198176ed04fd443 100644 (file)
--- a/basis/x11/xim/xim.factor
+++ b/basis/x11/xim/xim.factor
@@ -21,7 +21,7 @@ SYMBOL: xim
     xim get-global XCloseIM drop f xim set-global ;
 
 : with-xim ( quot -- )
-    [ "Factor" init-xim ] dip [ close-xim ] [ ] cleanup ; inline
+    [ "Factor" init-xim ] dip [ close-xim ] finally ; inline
 
 : create-xic ( window classname -- xic )
     [