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

windows-high-dpi
John Benediktsson 2018-02-14 09:42:19 -08:00
parent 355bd0be77
commit cf137d9976
1 changed files with 1 additions and 1 deletions

View File

@ -46,7 +46,7 @@ GENERIC: eval-generator ( singleton -- object )
: with-disposals ( object quotation -- ) : with-disposals ( object quotation -- )
over sequence? [ over sequence? [
[ with-disposal ] curry each over [ dispose-each ] curry [ ] cleanup
] [ ] [
with-disposal with-disposal
] if ; inline ] if ; inline