(skip-until) ( ... quot: ( ... char -- ... ? ) spot -- ... )

Vocabulary

xml.tokenize

Inputs

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

Outputs

None

Definition

USING: accessors kernel ;

IN: xml.tokenize

:: (skip-until)
    ( ... quot: ( ... char -- ... ? ) spot -- ... )
    spot char>>
    [ quot call [ spot next* quot spot (skip-until) ] unless ]
    when* ; inline recursive