use radix literals

[factor.git] / core / strings / strings.factor

diff --git a/core/strings/strings.factor b/core/strings/strings.factor
index 61f41257f2acca4701f7b25f4bbe03b5e66d041b..1f266e2e473076ef4b9e59c59c66aaee0cc685dc 100644 (file)
--- a/core/strings/strings.factor
+++ b/core/strings/strings.factor
@@ -20,7 +20,7 @@ IN: strings
     aux>> { byte-array } declare swap 1 fixnum-shift-fast ; inline
 
 : small-char? ( ch -- ? )
-    dup 0 fixnum>= [ HEX: 7f fixnum<= ] [ drop f ] if ; inline
+    dup 0 fixnum>= [ 0x7f fixnum<= ] [ drop f ] if ; inline
 
 : string-nth ( n string -- ch )
     2dup string-nth-fast dup small-char?
@@ -33,7 +33,7 @@ IN: strings
     dup aux>> [ dup length 2 * (byte-array) >>aux ] unless ; inline
 
 : set-string-nth-slow ( ch n string -- )
-    [ [ HEX: 80 fixnum-bitor ] 2dip set-string-nth-fast ]
+    [ [ 0x80 fixnum-bitor ] 2dip set-string-nth-fast ]
     [
         ensure-aux
         [ -7 fixnum-shift-fast 1 fixnum-bitxor ] 2dip