use radix literals

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

diff --git a/basis/checksums/internet/internet.factor b/basis/checksums/internet/internet.factor
index 8c609674b11d5881904546393f04995abf3bd048..254d46d0ab323e1e74c99d883e5e109d9af4ed99 100644 (file)
--- a/basis/checksums/internet/internet.factor
+++ b/basis/checksums/internet/internet.factor
@@ -11,6 +11,6 @@ INSTANCE: internet checksum
 
 M: internet checksum-bytes
     drop 0 swap 2 <sliced-groups> [ le> + ] each
-    [ -16 shift ] [ HEX: ffff bitand ] bi +
+    [ -16 shift ] [ 0xffff bitand ] bi +
     [ -16 shift ] keep + bitnot 2 >le ;