encode-first ( char -- byte1 byte2 )


Vocabulary
io.encodings.utf16.private

Inputs
charan object


Outputs
byte1an object
byte2an 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