-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> ] curry bi@ ] dip [ [ from>> ] ] dip
    compose -out- ; inline