continuations[-docs]: add the finally word

[factor.git] / extra / tools / image-analyzer / utils / utils.factor

diff --git a/extra/tools/image-analyzer/utils/utils.factor b/extra/tools/image-analyzer/utils/utils.factor
index 981a7e4658aed756af2b7fa0975f8abb34af427e..5bfca098c4597300fcf4b6a3beac058a8701e0b2 100644 (file)
--- a/extra/tools/image-analyzer/utils/utils.factor
+++ b/extra/tools/image-analyzer/utils/utils.factor
@@ -29,7 +29,7 @@ IN: tools.image-analyzer.utils
     ] ; inline
 
 : save-io-excursion ( quot -- )
-    tell-input '[ _ seek-absolute seek-input ] [ ] cleanup ; inline
+    tell-input '[ _ seek-absolute seek-input ] finally ; inline
 
 : consume-stream>sequence ( reader-quot: ( -- item )  -- seq )
     until-eof-reader '[ drop @ ] t swap follow rest ; inline