X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Funicode%2Fbreaks%2Fbreaks.factor;h=9aaa273634182f924084699102915e33d229ebcc;hp=f4e9b739e344050853883ae6cb773b0886ae2ff8;hb=943596575ad294c074dfa381b70af74dba5992b1;hpb=e738c7206c32bd9b76f3cee31e950835e1b1ee24

diff --git a/basis/unicode/breaks/breaks.factor b/basis/unicode/breaks/breaks.factor
index f4e9b739e3..9aaa273634 100644
--- a/basis/unicode/breaks/breaks.factor
+++ b/basis/unicode/breaks/breaks.factor
@@ -32,15 +32,15 @@ CONSTANT: graphemes 12
     [ dup medial? [ drop V ] [ final? T Any ? ] if ] if ;
 
 : hangul-class ( ch -- class )
-    hangul-base - HEX: 1C mod zero? LV LVT ? ;
+    hangul-base - 0x1C mod zero? LV LVT ? ;
 
 CATEGORY: grapheme-control Zl Zp Cc Cf ;
 : control-class ( ch -- class )
     {
         { CHAR: \r [ CR ] }
         { CHAR: \n [ LF ] }
-        { HEX: 200C [ Extend ] }
-        { HEX: 200D [ Extend ] }
+        { 0x200C [ Extend ] }
+        { 0x200D [ Extend ] }
         [ drop Control ]
     } case ;