assure-good-char ( spot ch -- )

Vocabulary

xml.tokenize

Inputs

spot	an object
ch	an object

Outputs

None

Definition

USING: accessors combinators.short-circuit kernel math
xml.char-classes xml.errors ;

IN: xml.tokenize

: assure-good-char ( spot ch -- )
    [
        over
        { [ version-1.0?>> over text? not ] [ check>> ] } 1&&
        [ [ [ 1 + ] change-column drop ] dip disallowed-char ]
        [ 2drop ] if
    ] [ drop ] if* ;