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

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: ( row -- ) -- )
    over more-rows?
    [ [ call ] 2keep over advance-row query-each ] [ 2drop ] if
    ; inline recursive