assure-no-]]> ( pos char -- pos' )

Vocabulary

xml.tokenize

Inputs

pos	an object
char	an object

Outputs

pos'

an object

Definition

USING: kernel math xml.errors ;

IN: xml.tokenize

: assure-no-]]> ( pos char -- pos' )
    "]]>" next-matching dup 2 > [ text-w/]]> ] when ; inline