consume-stream>sequence ( reader-quot: ( -- item ) -- seq )

Vocabulary

tools.image-analyzer.utils

Inputs

reader-quot

a quotation with stack effect ( -- item )

Outputs

seq

an object

Definition

USING: kernel sequences ;

IN: tools.image-analyzer.utils

: consume-stream>sequence
    ( reader-quot: ( -- item ) -- seq )
    until-eof-reader [ [ drop ] ] dip compose t swap follow rest
    ; inline