use radix literals

[factor.git] / basis / io / encodings / euc / euc.factor

diff --git a/basis/io/encodings/euc/euc.factor b/basis/io/encodings/euc/euc.factor
index a61046a5c7c53ffaed97b3e45b6d535f69610355..63a2c69cffcaf2c6975f29ba75e24d9eee44b32f 100644 (file)
--- a/basis/io/encodings/euc/euc.factor
+++ b/basis/io/encodings/euc/euc.factor
@@ -10,7 +10,7 @@ TUPLE: euc { table biassoc } ;
 <PRIVATE
 
 : byte? ( ch -- ? )
-    HEX: 0 HEX: ff between? ;
+    0x0 0xff between? ;
 
 M: euc encode-char ( char stream encoding -- )
     swapd table>> value-at [
@@ -22,7 +22,7 @@ M: euc encode-char ( char stream encoding -- )
     ] [ encode-error ] if* ;
 
 : euc-multibyte? ( ch -- ? )
-    HEX: 81 HEX: fe between? ;
+    0x81 0xfe between? ;
 
 :: decode-multibyte ( ch stream encoding -- char )
     stream stream-read1