(stream-contents-by-length) ( stream len -- seq )

Vocabulary
io

Definition

USING: io.private kernel sequences.private ;

IN: io

: (stream-contents-by-length) ( stream len -- seq )
    dup rot
    [ (new-sequence-for-stream) ]
    [ [ stream-read-unsafe ] curry keep resize ] bi ; inline