string-matcher ( str -- quot: ( pos char -- pos ? ) )

Vocabulary

xml.tokenize

Inputs

str

an object

Outputs

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

Definition

USING: kernel math sequences ;

IN: xml.tokenize

: string-matcher ( str -- quot: ( pos char -- pos ? ) )
    dup length 1 - [ [ next-matching dup ] curry ] dip
    [ > ] curry compose ; inline