use radix literals

[factor.git] / basis / io / encodings / shift-jis / shift-jis.factor

diff --git a/basis/io/encodings/shift-jis/shift-jis.factor b/basis/io/encodings/shift-jis/shift-jis.factor
index 99cfa26d126c42e01204ad307aa4ab2995c30c43..c67e0eb9f26fa2dd803109d619b2c23d77e8b2db 100644 (file)
--- a/basis/io/encodings/shift-jis/shift-jis.factor
+++ b/basis/io/encodings/shift-jis/shift-jis.factor
@@ -36,14 +36,14 @@ TUPLE: jis assoc ;
     flat-file>biassoc [ nip ] assoc-filter jis boa ;
 
 "vocab:io/encodings/shift-jis/CP932.txt"
-make-jis to: windows-31j-table
+make-jis \ windows-31j-table set-value
 
 "vocab:io/encodings/shift-jis/sjis-0208-1997-std.txt"
-make-jis to: shift-jis-table
+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 ;