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 bf882fcfd02ac4def4eaa47bff8cb91677bcd6d4..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
@@ -65,4 +65,4 @@ PRIVATE>
 
 SYNTAX: EUC:
     ! EUC: euc-kr "vocab:io/encodings/korean/cp949.txt"
-    CREATE-CLASS scan-object define-euc ;
+    scan-new-class scan-object define-euc ;