append-nums ( byte ch -- ch )

Vocabulary

io.encodings.utf16.private

Inputs

byte	an object
ch	an object

Outputs

ch

an object

Definition

USING: io.encodings kernel math ;

IN: io.encodings.utf16.private

: append-nums ( byte ch -- ch )
    over [ 8 shift bitor ] [ 2drop replacement-char ] if ;