db.tuples: more efficient with-disposals if sequence passed in.
parent
355bd0be77
commit
cf137d9976
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue