each-with-next ( ... seq quot: ( ... elt -- ... ) -- ... )

Vocabulary

compiler.tree.escape-analysis.nodes

Inputs

seq	an object
quot	a quotation with stack effect ( ... elt -- ... )

Outputs

None

Definition

USING: kernel math namespaces sequences ;

IN: compiler.tree.escape-analysis.nodes

: each-with-next ( ... seq quot: ( ... elt -- ... ) -- ... )
    dupd
    [ [ [ 1 + ] ] dip [ ?nth next-node set ] curry compose ] dip
    compose each-index ; inline