use radix literals

[factor.git] / basis / alien / endian / endian.factor

diff --git a/basis/alien/endian/endian.factor b/basis/alien/endian/endian.factor
index b72e0c634da1d88ec772f39ad975179e66663f7b..f7cc0b0f97ccc7ccfa9d398c94324363ace33af2 100644 (file)
--- a/basis/alien/endian/endian.factor
+++ b/basis/alien/endian/endian.factor
@@ -24,7 +24,7 @@ MACRO: byte-reverse ( n signed? -- quot )
         [
             dup iota [
                 [ 1 + - -8 * ] [ nip 8 * ] 2bi
-                '[ _ shift HEX: ff bitand _ shift ]
+                '[ _ shift 0xff bitand _ shift ]
             ] with map
         ] [ 1 - [ bitor ] n*quot ] bi
     ] [