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

2018-02-14 09:42:19 -08:00 · 2018-02-14 09:42:19 -08:00 · cf137d9976
parent 355bd0be77
commit cf137d9976
1 changed files with 1 additions and 1 deletions
--- 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