each-numbered-line ( ... quot: ( ... line number -- ... ) -- ... )

Vocabulary

io.random.private

Inputs

quot	a quotation with stack effect ( ... line number -- ... )

Outputs

None

Definition

USING: io kernel math ;

IN: io.random.private

: each-numbered-line
    ( ... quot: ( ... line number -- ... ) -- ... )
    [ 1 ] dip [ [ swap ] ] dip [ [ 1 + ] bi ] curry compose
    each-line drop ; inline