continuations[-docs]: add the finally word

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

diff --git a/basis/ui/ui.factor b/basis/ui/ui.factor
index 43af6f6c815862683d6b71d268bcc0bde10ce3ad..347def51fe0e4af97cf9571445cebe96d41f27db 100644 (file)
--- a/basis/ui/ui.factor
+++ b/basis/ui/ui.factor
@@ -228,7 +228,7 @@ M: object resize-window 2drop ;
             f ui-running set-global
             ! Give running ui threads a chance to finish.
             notify-ui-thread yield
-        ] [ ] cleanup
+        ] finally
     ] if ;
 
 HOOK: beep ui-backend ( -- )