continuations[-docs]: add the finally word

[factor.git] / basis / ui / backend / gtk / gtk.factor

diff --git a/basis/ui/backend/gtk/gtk.factor b/basis/ui/backend/gtk/gtk.factor
index fb7cee86e9b8e23690aed399dfdd2f9073121ad7..f3a78aa79b9556c221d23890a34259ec0d137ffc 100644 (file)
--- a/basis/ui/backend/gtk/gtk.factor
+++ b/basis/ui/backend/gtk/gtk.factor
@@ -80,7 +80,7 @@ M: gtk-clipboard set-clipboard-contents
     source G_PRIORITY_DEFAULT_IDLE g_source_set_priority
     source f g_source_attach drop
     [ quot call( -- ) ]
-    [ source g_source_destroy ] [ ] cleanup ;
+    [ source g_source_destroy ] finally ;
 
 ! User input