use radix literals

[factor.git] / basis / unicode / data / data.factor

diff --git a/basis/unicode/data/data.factor b/basis/unicode/data/data.factor
index 22828286810527d0c5a855237b53793f547e09f4..a04e689b1799ed2ea9717c540b71b5e9513b5f69 100644 (file)
--- a/basis/unicode/data/data.factor
+++ b/basis/unicode/data/data.factor
@@ -58,7 +58,7 @@ CONSTANT: categories
 MEMO: categories-map ( -- hashtable )
     categories <enum> [ swap ] H{ } assoc-map-as ;
 
-CONSTANT: num-chars HEX: 2FA1E
+CONSTANT: num-chars 0x2FA1E
 
 PRIVATE>
 
@@ -68,9 +68,9 @@ PRIVATE>
     ! Cf = 26; Mn = 5; Cn = 29
     ! Use a compressed array instead?
     dup category-map ?nth [ ] [
-        dup HEX: E0001 HEX: E007F between?
+        dup 0xE0001 0xE007F between?
         [ drop 26 ] [
-            HEX: E0100 HEX: E01EF between?  5 29 ?
+            0xE0100 0xE01EF between?  5 29 ?
         ] if
     ] ?if ;