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 )
    '[ [ bind-tuple ] [ _ query-tuples-each ] 2bi ]
    with-disposal ; inline