(take-string) ( match spot -- sbuf matched? )

Vocabulary

xml.tokenize

Inputs

match	an object
spot	an object

Outputs

sbuf	an object
matched?	an object

Definition

USING: accessors kernel sbufs sequences ;

IN: xml.tokenize

:: (take-string) ( match spot -- sbuf matched? )
    10 <sbuf> f [
        spot char>>
        [ nip over push spot next* dup match tail? dup not ]
        [ f ] if*
    ] loop ; inline