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 e20580876e27578e027dd53b240a586d45bb8ff8..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
@@ -63,6 +63,6 @@ SYMBOL: euc-table
 
 PRIVATE>
 
-: EUC:
+SYNTAX: EUC:
     ! EUC: euc-kr "vocab:io/encodings/korean/cp949.txt"
-    CREATE-CLASS scan-object define-euc ; parsing
+    scan-new-class scan-object define-euc ;