\r
: base ( char -- base )\r
{\r
- { [ dup HEX: 3400 HEX: 4DB5 between? ] [ drop HEX: FB80 ] } ! Extension A\r
- { [ dup HEX: 20000 HEX: 2A6D6 between? ] [ drop HEX: FB80 ] } ! Extension B\r
- { [ dup HEX: 4E00 HEX: 9FC3 between? ] [ drop HEX: FB40 ] } ! CJK\r
- [ drop HEX: FBC0 ] ! Other\r
+ { [ dup 0x3400 0x4DB5 between? ] [ drop 0xFB80 ] } ! Extension A\r
+ { [ dup 0x20000 0x2A6D6 between? ] [ drop 0xFB80 ] } ! Extension B\r
+ { [ dup 0x4E00 0x9FC3 between? ] [ drop 0xFB40 ] } ! CJK\r
+ [ drop 0xFBC0 ] ! Other\r
} cond ;\r
\r
: AAAA ( char -- weight )\r
- [ base ] [ -15 shift ] bi + HEX: 20 2 f weight boa ;\r
+ [ base ] [ -15 shift ] bi + 0x20 2 f weight boa ;\r
\r
: BBBB ( char -- weight )\r
- HEX: 7FFF bitand HEX: 8000 bitor 0 0 f weight boa ;\r
+ 0x7FFF bitand 0x8000 bitor 0 0 f weight boa ;\r
\r
: illegal? ( char -- ? )\r
{ [ "Noncharacter_Code_Point" property? ] [ category "Cs" = ] } 1|| ;\r
map [ zero? not ] filter % 0 , ; inline\r
\r
: variable-weight ( weight -- )\r
- dup ignorable?>> [ primary>> ] [ drop HEX: FFFF ] if , ;\r
+ dup ignorable?>> [ primary>> ] [ drop 0xFFFF ] if , ;\r
\r
: weights>bytes ( weights -- byte-array )\r
[\r