expect ( string -- )

Vocabulary

xml.tokenize

Inputs

string

an object

Outputs

None

Definition

USING: accessors kernel namespaces sequences xml.errors
xml.state ;

IN: xml.tokenize

: expect ( string -- )
    dup length spot get [ [ char>> ] keep next* ] curry
    "" replicate-as 2dup = [ 2drop ] [ expected ] if ;