(sequence-read-unsafe) ( n buf stream -- count )


Vocabulary
io.streams.sequence.private

Inputs
nan object
bufan object
streaman object


Outputs
countan object


Definition
USING: accessors byte-arrays classes io kernel math sequences
strings ;

IN: io.streams.sequence.private

: (sequence-read-unsafe) ( n buf stream -- count )
[ integer>fixnum ]
[ dup slice? [ [ seq>> ] [ from>> ] bi ] [ 0 ] if ] [
tuck stream-element-type +byte+ eq? [
[ byte-array check-instance ] 2dip
sequence-copy-unsafe
]
[ [ string check-instance ] 2dip sequence-copy-unsafe ]
if
] tri* ; inline