encode-first ( char -- byte1 byte2 )

Vocabulary

io.encodings.utf16.private

Inputs

char

an object

Outputs

byte1	an object
byte2	an object

Definition

USING: kernel math ;

IN: io.encodings.utf16.private

: encode-first ( char -- byte1 byte2 )
    -10 shift [ -8 shift 216 bitor ] [ 255 bitand ] bi ; inline