zip-names ( seq names -- assoc )


Vocabulary
terminfo.private

Inputs
seqan object
namesan object


Outputs
assocan object


Definition
USING: assocs kernel math sequences ;

IN: terminfo.private

: zip-names ( seq names -- assoc )
swap 2dup 2length - f <repetition> append zip ;