-unzip- ( quot -- quot' )


Vocabulary
cursors

Inputs
quotan object


Outputs
quot'an object


Definition
USING: accessors kernel ;

IN: cursors

: -unzip- ( quot -- quot' )
[ [ [ keys>> cursor-value-unsafe ] [ values>> ] bi ] ] dip
compose ; inline