(read-rest) ( buf stream encoding n i -- count )

Vocabulary

io.encodings.private

Inputs

buf	an object
stream	an object
encoding	an object
n	an object
i	an object

Outputs

count

an object

Definition

USING: kernel math ;

IN: io.encodings.private

: (read-rest) ( buf stream encoding n i -- count )
    2dup =
    [ 4nip ] [
        (read-next)
        [ swap [ (store-read) ] [ 1 + ] bi (read-rest) ]
        [ 4nip ] if*
    ] if ; inline recursive