identical-weight ( char -- weight )


Vocabulary
unicode.private

Inputs
charan object


Outputs
weightan object


Definition
USING: kernel math ;

IN: unicode.private

: identical-weight ( char -- weight )
dup 65534 = [ drop 0 ] [ 1 + ] if ; inline