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> [
        [ push ] curry [ [ keep over [ drop ] ] curry ] dip
        [ if ] curry compose skip-until
    ] keep "" like ; inline