assoc-interleave ( ... assoc between quot: ( ... key value -- ... ) -- ... )

Vocabulary

assocs.extras

Inputs

assoc	an object
between	an object
quot	a quotation with stack effect ( ... key value -- ... )

Outputs

None

Definition

USING: assocs kernel sequences ;

IN: assocs.extras

: assoc-interleave
    ( ... assoc between quot: ( ... key value -- ... ) -- ... )
    [ >alist ] 2dip [ first2 ] prepose interleave ; inline