next-matching ( pos ch str -- pos' )

Vocabulary

xml.tokenize

Inputs

pos	an object
ch	an object
str	an object

Outputs

pos'

an object

Definition

USING: kernel math sequences ;

IN: xml.tokenize

: next-matching ( pos ch str -- pos' )
    overd nth eq? [ 1 + ] [ drop 0 ] if ; inline