find-separator ( seps stream -- sep/f n )

Vocabulary

io.streams.sequence.private

Inputs

seps	an object
stream	an object

Outputs

sep/f	an object
n	an object

Definition

USING: io.streams.sequence kernel math sequences ;

IN: io.streams.sequence.private

: find-separator ( seps stream -- sep/f n )
    >sequence-stream< rot [ member? ] curry
    [ find-from swap ] curry 2keep pick
    [ drop - ] [ length swap - nip ] if ; inline