each-prior-from ( ... i seq quot: ( ... prior elt -- ... ) -- ... )

Vocabulary

sequences.extras

Inputs

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

Outputs

None

Definition

USING: kernel ;

IN: sequences.extras

: each-prior-from
    ( ... i seq quot: ( ... prior elt -- ... ) -- ... )
    [ prev-identity ] dip each-prior-identity-from ; inline