until-eof-reader ( reader-quot -- reader-quot' )

Vocabulary

tools.image-analyzer.utils

Inputs

reader-quot

an object

Outputs

reader-quot'

an object

Definition

USING: continuations io.streams.throwing kernel ;

IN: tools.image-analyzer.utils

: until-eof-reader ( reader-quot -- reader-quot' )
    [ throw-on-eof ] curry [
        [ dup stream-exhausted? [ drop f ] [ throw ] if ]
        recover
    ] curry ; inline