(parse-quote) ( <-disallowed? ch -- string )

Vocabulary

xml.tokenize

Inputs

<-disallowed?	an object
ch	an object

Outputs

string

an object

Definition

USING: kernel xml.errors xml.state ;

IN: xml.tokenize

: (parse-quote) ( <-disallowed? ch -- string )
    swap [ [ 60 eq? ] ] dip [ and [ attr-w/< ] [ f ] if ] curry
    compose
    [ [ [ dup ] ] dip [ eq? [ drop t ] ] curry compose ] dip
    [ if ] curry compose parse-char normalize-quote get-char
    [ unclosed-quote ] unless ; inline