sequence-copy-unsafe ( n buf stream offset -- count )

Vocabulary

io.streams.sequence.private

Inputs

n	an object
buf	an object
stream	an object
offset	an object

Outputs

count

an object

Definition

USING: accessors kernel math sequences.private ;

IN: io.streams.sequence.private

: sequence-copy-unsafe ( n buf stream offset -- count )
    [
        [ (sequence-read-length) ]
        [ [ dup pick + ] change-i underlying>> ] bi
    ] dip [ 4spin dupd + copy-loop drop ] 3curry keep ; inline