X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=core%2Fstrings%2Fstrings.factor;h=1f266e2e473076ef4b9e59c59c66aaee0cc685dc;hp=61f41257f2acca4701f7b25f4bbe03b5e66d041b;hb=943596575ad294c074dfa381b70af74dba5992b1;hpb=e738c7206c32bd9b76f3cee31e950835e1b1ee24

diff --git a/core/strings/strings.factor b/core/strings/strings.factor
index 61f41257f2..1f266e2e47 100644
--- 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