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