parse-char ( quot: ( ch -- ? ) -- seq )

Vocabulary

xml.tokenize

Inputs

quot	a quotation with stack effect ( ch -- ? )

Outputs

seq

an object

Definition

USING: kernel namespaces sbufs sequences xml.state ;

IN: xml.tokenize

: parse-char ( quot: ( ch -- ? ) -- seq )
    512 <sbuf> [ spot get (parse-char) ] keep "" like ; inline