read-loop ( buf stream n i -- count )

Vocabulary

io.private

Inputs

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

Outputs

count

an object

Definition

USING: io kernel math sequences.private ;

IN: io.private

: read-loop ( buf stream n i -- count )
    2dup =
    [ 3nip ] [
        pick stream-read1 [
            over [ pick set-nth-unsafe ] 2curry 3dip 1 +
            read-loop
        ] [ 3nip ] if*
    ] if ; inline recursive