-each ( ... begin end quot: ( ... cursor -- ... ) -- ... )

Vocabulary

cursors

Inputs

begin	an object
end	an object
quot	a quotation with stack effect ( ... cursor -- ... )

Outputs

None

Definition

USING: kernel ;

IN: cursors

: -each ( ... begin end quot: ( ... cursor -- ... ) -- ... )
    [ [ [ dup ] ] dip [ cursor>= ] curry compose ]
    [ [ keep inc-cursor ] curry ] bi* until drop ; inline