instruct-encoding ( instruct/prolog -- )

Vocabulary

xml.autoencoding

Inputs

instruct/prolog

an object

Outputs

None

Definition

USING: io.encodings.utf8 kernel xml.data ;

IN: xml.autoencoding

: instruct-encoding ( instruct/prolog -- )
    dup prolog?
    [ prolog-encoding ] [ drop utf8 decode-stream ] if ;