encode-first ( char -- byte1 byte2 ) (original) (raw)
encode-first ( char -- byte1 byte2 )
Vocabulary
io.encodings.utf16.private
Inputs
| char | an object |
|---|
Outputs
| byte1 | an object |
|---|---|
| byte2 | an object |
Definition
IN: io.encodings.utf16.private
: encode-first ( char -- byte1 byte2 )
-10 shift [ -8 shift 216 bitor ] [ 255 bitand ] bi ; inline