db.tuples: more efficient with-disposals if sequence passed in.

diff --git a/basis/db/tuples/tuples.factor b/basis/db/tuples/tuples.factor
index 0bdb2978ee1580285be2f91ad2d8b0757595aa62..6e009d84d567fe94b38f36c44bfb6f39ddc4ff9f 100644 (file)
--- a/basis/db/tuples/tuples.factor
+++ b/basis/db/tuples/tuples.factor
@@ -46,7 +46,7 @@ GENERIC: eval-generator ( singleton -- object )
 
 : with-disposals ( object quotation -- )
     over sequence? [
-        [ with-disposal ] curry each
+        over [ dispose-each ] curry [ ] cleanup
     ] [
         with-disposal
     ] if ; inline