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


Vocabulary
cursors

Inputs
beginan object
endan object
quota quotation with stack effect ( ... cursor -- ... )


Outputs
None

Definition


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