char>control-picture ( char -- char' )

Vocabulary

unicode.control-pictures.private

Inputs

char

an object

Outputs

char'

an object

Definition

USING: combinators kernel math ;

IN: unicode.control-pictures.private

: char>control-picture ( char -- char' )
    {
        { [ dup 32 < ] [ 9216 bitor ] }
        { [ dup 127 = ] [ drop 9249 ] }
        [ ]
    } cond ;