continuations[-docs]: add the finally word

[factor.git] / basis / db / tuples / tuples.factor

diff --git a/basis/db/tuples/tuples.factor b/basis/db/tuples/tuples.factor
index e4422eea89334a2b69d28f0d6759241bca6918d2..bb8000828b7485194f0bc70b6224f7e998b93efb 100644 (file)
--- a/basis/db/tuples/tuples.factor
+++ b/basis/db/tuples/tuples.factor
@@ -48,7 +48,7 @@ GENERIC: eval-generator ( singleton -- object )
 
 : with-disposals ( object quotation -- )
     over sequence? [
-        over '[ _ dispose-each ] [ ] cleanup
+        over '[ _ dispose-each ] finally
     ] [
         with-disposal
     ] if ; inline