xml.tokenize: slight fix to reduce number of namespace lookups.

diff --git a/basis/xml/tokenize/tokenize.factor b/basis/xml/tokenize/tokenize.factor
index f6631f5b3aada41adc9c09196616be732dfaf8b4..a85c48a022731267eea84d001a226ac400f47220 100644 (file)
--- a/basis/xml/tokenize/tokenize.factor
+++ b/basis/xml/tokenize/tokenize.factor
@@ -130,7 +130,7 @@ HINTS: next* { spot } ;
             accum parse-entity
             quot accum spot (parse-char)
         ] }
-        { [ char CHAR: % eq? in-dtd? get and ] [
+        { [ char CHAR: % eq? [ in-dtd? get ] [ f ] if ] [
             accum parse-pe
             quot accum spot (parse-char)
         ] }