char> ( stream quot -- ch )

Vocabulary

io.encodings.utf32.private

Inputs

stream	an object
quot	an object

Outputs

ch

an 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