legacy>assoc ( terminfo-arrays -- assoc )

Vocabulary

terminfo.private

Inputs

terminfo-arrays

an object

Outputs

assoc

an object

Definition

USING: accessors combinators make ;

IN: terminfo.private

: legacy>assoc ( terminfo-arrays -- assoc )
    [
        {
            [ names>> ".names" ,, ]
            [ booleans>> boolean-names zip-names %% ]
            [ numbers>> number-names zip-names %% ]
            [ strings>> string-names zip-names %% ]
        } cleave
    ] H{ } make ;