use radix literals

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

diff --git a/basis/unicode/breaks/breaks.factor b/basis/unicode/breaks/breaks.factor
index f4e9b739e344050853883ae6cb773b0886ae2ff8..9aaa273634182f924084699102915e33d229ebcc 100644 (file)
--- 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 ;