map-prior-from-as ( ... i seq quot: ( ... prior elt -- elt' ) exemplar -- seq' )

Vocabulary

sequences.extras

Inputs

i	an object
seq	an object
quot	a quotation with stack effect ( ... prior elt -- elt' )
exemplar	an object

Outputs

seq'

an object

Definition

USING: kernel ;

IN: sequences.extras

: map-prior-from-as
    ( ... i seq quot: ( ... prior elt -- elt' ) exemplar -- seq' )
    [ prev-identity ] 2dip map-prior-identity-from-as ; inline