-map- ( begin end quot to -- begin' end' quot' )

Vocabulary

cursors

Inputs

begin	an object
end	an object
quot	an object
to	an object

Outputs

begin'	an object
end'	an object
quot'	an object

Definition

USING: accessors kernel ;

IN: cursors

: -map- ( begin end quot to -- begin' end' quot' )
    swap [ '[ _ <map-cursor> ] bi@ ] dip '[ from>> @ ] -out- ;
    inline