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

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

Vocabulary
db.tuples.private

Inputs

Outputs

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