(uncased)? ( object -- ? )

Vocabulary

unicode.case.private

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the (uncased) class.

Definition

USING: kernel math sequences unicode.data ;

IN: unicode.case.private

: (uncased)? ( object -- ? )
    dup integer? [
        integer>fixnum-strict
        dup
        category-num
        B{ 1 2 3 4 6 8 }
        member?
        [ drop t ]
        [ drop f ]
        if
        not
    ] [ drop f ] if ;