map-zip ( quot -- quot' )

Vocabulary

assocs.extras

Inputs

quot

an object

Outputs

quot'

an object

Definition

USING: assocs.extras.private combinators.smart kernel sequences
;

IN: assocs.extras

MACRO: map-zip ( quot -- quot' )
    [ inputs/outputs [ unpacking ] [ packing ] bi* ] keep swap
    '[ [ @ @ @ ] map ] ;