append-nums ( stream byte -- stream char )

Vocabulary

io.encodings.utf8.private

Inputs

stream	an object
byte	an object

Outputs

stream	an object
char	an object

Definition

USING: io io.encodings kernel math ;

IN: io.encodings.utf8.private

: append-nums ( stream byte -- stream char )
    over stream-read1 dup starts-2?
    [ [ 6 shift ] dip 63 bitand bitor ]
    [ 2drop replacement-char ] if ; inline