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

2012-09-11 14:43:19 -07:00 · 2012-09-11 14:43:19 -07:00 · 695ce57b25
parent c2a015cc40
commit 695ce57b25
1 changed files with 1 additions and 1 deletions
--- 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)
        ] }