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

Vocabulary

sequences.extras

Inputs

identity	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-identity-as
    ( ... identity seq quot: ( ... prior elt -- elt' ) exemplar -- seq' )
    [ 0 ] 3dip map-prior-identity-from-as ; inline