read-into-new ( n stream quot -- seq/f )

Vocabulary

io.private

Inputs

n	an object
stream	an object
quot	an object

Outputs

seq/f

an object

Definition

USING: kernel ;

IN: io.private

: read-into-new ( n stream quot -- seq/f )
    [ dup ] 2dip [ 2dup new-sequence-for-stream swap ] dip keepd
    over 0 = [ 3drop f ] [ resize-if-necessary ] if ; inline