use radix literals

[factor.git] / basis / checksums / common / common.factor

diff --git a/basis/checksums/common/common.factor b/basis/checksums/common/common.factor
index 76675f94132ac32985cf42d67279b310ea25bcb7..f979a6e71900653d47e6f50e19f1c02a0639a2f3 100644 (file)
--- a/basis/checksums/common/common.factor
+++ b/basis/checksums/common/common.factor
@@ -14,8 +14,8 @@ SYMBOL: bytes-read
 
 : pad-last-block ( str big-endian? length -- str )
     [
-        [ % ] 2dip HEX: 80 ,
-        [ HEX: 3f bitand calculate-pad-length <byte-array> % ]
+        [ % ] 2dip 0x80 ,
+        [ 0x3f bitand calculate-pad-length <byte-array> % ]
         [ 3 shift 8 rot [ >be ] [ >le ] if % ] bi
     ] B{ } make 64 group ;