-map-as ( ... begin end quot: ( ... cursor -- ... value ) exemplar -- ... newseq )

Vocabulary

cursors

Inputs

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

Outputs

newseq

an object

Definition

USING: kernel sequences ;

IN: cursors

: -map-as
    ( ... begin end quot: ( ... cursor -- ... value ) exemplar -- ... newseq )
    [ -into-sequence- [ -map ] dip ] keep like ; inline