use radix literals

[factor.git] / basis / io / encodings / utf32 / utf32.factor

diff --git a/basis/io/encodings/utf32/utf32.factor b/basis/io/encodings/utf32/utf32.factor
index 4e5c1895cffbd88346a65989bc4b5216e644ba49..e609738ff68e0bee0c07130e5ed829971940b2ab 100644 (file)
--- a/basis/io/encodings/utf32/utf32.factor
+++ b/basis/io/encodings/utf32/utf32.factor
@@ -46,9 +46,9 @@ M: utf32le encode-char
 
 ! UTF-32
 
-CONSTANT: bom-le B{ HEX: ff HEX: fe 0 0 }
+CONSTANT: bom-le B{ 0xff 0xfe 0 0 }
 
-CONSTANT: bom-be B{ 0 0 HEX: fe HEX: ff }
+CONSTANT: bom-be B{ 0 0 0xfe 0xff }
 
 : bom>le/be ( bom -- le/be )
     dup bom-le sequence= [ drop utf32le ] [