parse-quote* ( <-disallowed? -- seq )

Vocabulary

xml.tokenize

Inputs

<-disallowed?

an object

Outputs

seq

an object

Definition

USING: kernel sequences xml.errors xml.state ;

IN: xml.tokenize

: parse-quote* ( <-disallowed? -- seq )
    pass-blank get-char dup "'\"" member?
    [ next (parse-quote) ] [ quoteless-attr ] if ; inline