-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 _ cursor>= ] ] [ '[ _ keep inc-cursor ] ] bi* until
    drop ; inline