query-each ( ... result-set quot: ( ... result-set -- ... ) -- ... )

Vocabulary

db

Inputs

result-set	a result-set
quot	a quotation

Outputs

None

Word description

Applies the quotation to each row of the result-set in order.

Definition

USING: kernel ;

IN: db

: query-each
    ( ... result-set quot: ( ... result-set -- ... ) -- ... )
    over more-rows?
    [ [ call ] 2keep over advance-row query-each ] [ 2drop ] if
    ; inline recursive