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

Vocabulary

sequences.extras

Inputs

seq	a sequence
quot	a quotation
exemplar	an object

Outputs

seq'	a sequence

Definition

USING: kernel ;

IN: sequences.extras

: map-prior-as
    ( ... seq quot: ( ... prior elt -- elt' ) exemplar -- seq' )
    0 -roll map-prior-from-as ; inline