continuations[-docs]: add the finally word

[factor.git] / basis / game / input / input.factor

diff --git a/basis/game/input/input.factor b/basis/game/input/input.factor
index e46587f5bad5b5c658eeb1bbc3e05dc7751e2941..f36bc212e314a4db9a61d7d2a6e48d7a24f2d209 100644 (file)
--- a/basis/game/input/input.factor
+++ b/basis/game/input/input.factor
@@ -59,7 +59,7 @@ ERROR: game-input-not-open ;
     ] unless ;
 
 : with-game-input ( quot -- )
-    open-game-input [ close-game-input ] [ ] cleanup ; inline
+    open-game-input [ close-game-input ] finally ; inline
 
 TUPLE: controller handle ;
 TUPLE: controller-state x y z rx ry rz slider pov buttons ;