char> ( stream quot -- ch )


Vocabulary
io.encodings.utf32.private

Inputs
streaman object
quotan object


Outputs
chan object


Definition
USING: combinators io io.encodings kernel sequences ;

IN: io.encodings.utf32.private

: char> ( stream quot -- ch )
swap [ 4 ] dip stream-read dup length {
{ 0 [ 2drop f ] }
{ 4 [ swap call ] }
[ 3drop replacement-char ]
} case ; inline