[category] ( categories code -- quot )

Vocabulary

unicode.categories.private

Inputs

categories	an object
code	an object

Outputs

quot

an object

Definition

USING: kernel math sequences unicode.data ;

IN: unicode.categories.private

: [category] ( categories code -- quot )
    [
        [ [ integer>fixnum-strict dup category-num ] ] dip
        [ member? [ drop t ] ] curry compose
    ] dip [ if ] curry compose ;