map-zip ( quot -- quot' )


Vocabulary
assocs.extras

Inputs
quotan 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
[ compose ] dip compose [ map ] curry ;