do-each-tuple ( exemplar-tuple statement quot: ( tuple -- ) -- tuples )

Vocabulary

db.tuples.private

Inputs

exemplar-tuple	an object
statement	an object
quot	a quotation with stack effect ( tuple -- )

Outputs

tuples

an object

Definition

USING: db destructors kernel ;

IN: db.tuples.private

: do-each-tuple
    ( exemplar-tuple statement quot: ( tuple -- ) -- tuples )
    [ query-tuples-each ] curry [ [ [ bind-tuple ] ] ] dip
    [ 2bi ] curry compose with-disposal ; inline