From cf137d997695dbd800996875b8985baa89ad0dec Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 14 Feb 2018 09:42:19 -0800
Subject: [PATCH] db.tuples: more efficient with-disposals if sequence passed
 in.

---
 basis/db/tuples/tuples.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/db/tuples/tuples.factor b/basis/db/tuples/tuples.factor
index 0bdb2978ee..6e009d84d5 100644
--- 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