]> gitweb.factorcode.org Git - factor.git/blobdiff - unmaintained/sniffer/io/filter/backend/backend.factor
use radix literals
[factor.git] / unmaintained / sniffer / io / filter / backend / backend.factor
index dade8bdebf7d577a5205ce7702bb8cc53f03de16..2e0415c5a68c2fb3feeb4ca63458f81abb313a7f 100644 (file)
@@ -11,7 +11,7 @@ HOOK: packet. io-backend ( string -- )
     "--Ethernet Header--" print
         dup etherneth.
     dup etherneth-type {
-        ! HEX: 800 [ ] ! IP
-        ! HEX: 806 [ ] ! ARP
+        ! 0x800 [ ] ! IP
+        ! 0x806 [ ] ! ARP
         [ "Unknown type: " write .h ]
     } case 2drop ;