X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fio%2Fencodings%2Feuc%2Feuc.factor;h=63a2c69cffcaf2c6975f29ba75e24d9eee44b32f;hp=a61046a5c7c53ffaed97b3e45b6d535f69610355;hb=943596575ad294c074dfa381b70af74dba5992b1;hpb=e738c7206c32bd9b76f3cee31e950835e1b1ee24

diff --git a/basis/io/encodings/euc/euc.factor b/basis/io/encodings/euc/euc.factor
index a61046a5c7..63a2c69cff 100644
--- 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