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

Vocabulary

db.tuples.private

Inputs

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

Outputs

None

Definition

USING: accessors db destructors kernel ;

IN: db.tuples.private

: query-tuples-each
    ( exemplar-tuple statement quot: ( tuple -- ) -- )
    [ [ out-params>> ] keep query-results ] dip
    [ [ sql-row-typed swap resulting-tuple ] ] dip compose
    [ 2with query-each ] curry with-disposal ; inline