take-until ( ... quot: ( ... char -- ... ? ) -- ... string )

Vocabulary

xml.tokenize

Inputs

quot	a quotation with stack effect ( ... char -- ... ? )

Outputs

string

an object

Definition

USING: kernel sbufs sequences ;

IN: xml.tokenize

: take-until
    ( ... quot: ( ... char -- ... ? ) -- ... string )
    10 <sbuf>
    [ '[ _ keep over [ drop ] [ _ push ] if ] skip-until ] keep
    "" like ; inline