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