use radix literals

[factor.git] / unmaintained / sniffer / io / bsd / bsd.factor

diff --git a/unmaintained/sniffer/io/bsd/bsd.factor b/unmaintained/sniffer/io/bsd/bsd.factor
index 5f82b21069ef3784be7f008c0b7f07428b81c069..f20469c14d0544cfe1a2fe1f8f92af12df4ac7a2 100644 (file)
--- a/unmaintained/sniffer/io/bsd/bsd.factor
+++ b/unmaintained/sniffer/io/bsd/bsd.factor
@@ -16,13 +16,13 @@ TUPLE: sniffer-spec path ifname ;
 
 C: <sniffer-spec> sniffer-spec
 
-: IOCPARM_MASK   HEX: 1fff ; inline
+: IOCPARM_MASK   0x1fff ; inline
 : IOCPARM_MAX    IOCPARM_MASK 1+ ; inline
-: IOC_VOID       HEX: 20000000 ; inline
-: IOC_OUT        HEX: 40000000 ; inline
-: IOC_IN         HEX: 80000000 ; inline
+: IOC_VOID       0x20000000 ; inline
+: IOC_OUT        0x40000000 ; inline
+: IOC_IN         0x80000000 ; inline
 : IOC_INOUT      IOC_IN IOC_OUT bitor ; inline
-: IOC_DIRMASK    HEX: e0000000 ; inline
+: IOC_DIRMASK    0xe0000000 ; inline
 
 :: ioc ( inout group num len -- n )
     group first 8 shift num bitor