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

diff --git a/basis/io/encodings/shift-jis/shift-jis.factor b/basis/io/encodings/shift-jis/shift-jis.factor
index efb57d8286..c67e0eb9f2 100644
--- a/basis/io/encodings/shift-jis/shift-jis.factor
+++ b/basis/io/encodings/shift-jis/shift-jis.factor
@@ -43,7 +43,7 @@ make-jis \ shift-jis-table set-value
 
 : small? ( char -- ? )
     ! ASCII range or single-byte halfwidth katakana
-    { [ 0 HEX: 7F between? ] [ HEX: A1 HEX: DF between? ] } 1|| ;
+    { [ 0 0x7F between? ] [ 0xA1 0xDF between? ] } 1|| ;
 
 : write-halfword ( stream halfword -- )
     h>b/b swap 2byte-array swap stream-write ;