! Copyright (C) 2005, 2009 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license.
-USING: kernel namespaces xml.tokenize xml.state xml.name
-xml.data accessors arrays make xml.char-classes fry assocs sequences
-math xml.errors sets combinators io.encodings io.encodings.iana
-unicode.case xml.dtd strings xml.entities unicode.categories ;
+USING: arrays assocs combinators kernel make math namespaces
+sequences sets strings unicode xml.char-classes xml.data xml.dtd
+xml.errors xml.name xml.state xml.tokenize ;
IN: xml.elements
: take-interpolated ( quot -- interpolated )
: take-internal-subset ( -- dtd )
[
- H{ } clone pe-table set
- t in-dtd? set
+ H{ } clone pe-table namespaces:set
+ t in-dtd? namespaces:set
dtd-loop
pe-table get
] { } make swap extra-entities get swap <dtd> ;