with-disposals ( object quotation -- )

Vocabulary

db.tuples.private

Inputs

object	an object
quotation	an object

Outputs

None

Definition

USING: continuations destructors kernel sequences ;

IN: db.tuples.private

: with-disposals ( object quotation -- )
    over sequence?
    [ over [ dispose-each ] curry finally ] [ with-disposal ] if
    ; inline