(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 not ] [ f ] if* ] [ spot next* ]
    while ; inline