Fix route message type

Julien LepillerSun Mar 14 15:06:18+0100 2021

63cc555

Fix route message type

netlink/route/route.scm

3838 
3939 
(define-data-type route-message
4040 
  (lambda (msg)
41-
    (+ 12 (route-attr-list-size (addr-message-type-attrs msg))))
41+
    (+ 12 (route-attr-list-size (route-message-type-attrs msg))))
4242 
  (lambda (msg pos bv)
4343 
    (match msg
4444 
      (($ route-message-type family dest-len src-len tos table protocol
…
5353 
       (bytevector-u8-set! bv (+ pos 7) type)
5454 
       (bytevector-u32-set! bv (+ pos 8) flags (native-endianness))
5555 
       (serialize-route-attr-list attrs (+ pos 12) bv))))
56-
  (family addr-message-family addr-message-type-family)
57-
  (dest-len addr-message-dest-len addr-message-type-dest-len)
58-
  (src-len addr-message-src-len addr-message-type-src-len)
59-
  (tos addr-message-tos addr-message-type-tos)
60-
  (table addr-message-table addr-message-type-table)
61-
  (protocol addr-message-protocol addr-message-type-protocol)
62-
  (scope addr-message-scope addr-message-type-scope)
63-
  (type addr-message-kind addr-message-type-type)
64-
  (flags addr-message-flags addr-message-type-flags)
65-
  (attrs addr-message-attrs addr-message-type-attrs))
56+
  (family route-message-family route-message-type-family)
57+
  (dest-len route-message-dest-len route-message-type-dest-len)
58+
  (src-len route-message-src-len route-message-type-src-len)
59+
  (tos route-message-tos route-message-type-tos)
60+
  (table route-message-table route-message-type-table)
61+
  (protocol route-message-protocol route-message-type-protocol)
62+
  (scope route-message-scope route-message-type-scope)
63+
  (type route-message-kind route-message-type-type)
64+
  (flags route-message-flags route-message-type-flags)
65+
  (attrs route-message-attrs route-message-type-attrs))
6666 
6767 
(define (deserialize-route-message decoder bv pos)
6868 
  (let ((family (bytevector-u8-ref bv pos)))