xml.char-classes: fix upper bound.

2011-10-02 15:30:41 -07:00 · 2011-10-02 15:30:41 -07:00 · 32111a1095
parent 8579a71efa
commit 32111a1095
1 changed files with 1 additions and 1 deletions
--- a/basis/xml/char-classes/char-classes.factor
+++ b/basis/xml/char-classes/char-classes.factor
@ -40,7 +40,7 @@ HINTS: name-char? { object fixnum } ;
        [ HEX: 20 HEX: D7FF between? ]
        [ "\t\r\n" member? ]
        [ HEX: E000 HEX: FFFD between? ]
-        [ HEX: 10000 HEX: 10FFFFF between? ]
+        [ HEX: 10000 HEX: 10FFFF between? ]
    } 1|| ; inline

 : 1.1-text? ( char -- ? )