continuations[-docs]: add the finally word

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

diff --git a/basis/x11/x11.factor b/basis/x11/x11.factor
index c1b5ea5c68763df8745c90e3adbc1b85719e58b4..f2cf99a77707ecc9a829a35238654d36f201a3da 100644 (file)
--- a/basis/x11/x11.factor
+++ b/basis/x11/x11.factor
@@ -31,6 +31,6 @@ SYMBOL: root
 : close-x ( -- ) dpy get XCloseDisplay drop ;
 
 : with-x ( display-string quot -- )
-    [ init-x ] dip [ close-x ] [ ] cleanup ; inline
+    [ init-x ] dip [ close-x ] finally ; inline
 
 { "x11" "io.backend.unix" } "x11.io.unix" require-when