Thu Nov 18 00:13:08+0100 2021
73132b4
Fix ipv6 order
netlink/route/attrs.scm
| 174 | 174 | (let loop ((num (inet-pton AF_INET6 addr)) (lst '())) | |
| 175 | 175 | (match lst | |
| 176 | 176 | ((_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _) | |
| 177 | - | (u8-list->bytevector (reverse lst))) | |
| 177 | + | (u8-list->bytevector lst)) | |
| 178 | 178 | (_ | |
| 179 | 179 | (loop (quotient num 256) (cons (modulo num 256) lst)))))) | |
| 180 | 180 | (define (make-ipv6-route-attr addr) |