Fix display inet/inet6

Julien LepillerSun Mar 14 03:51:41+0100 2021

a54cf8e

Fix display inet/inet6

ip/addr.scm

176176 
(define print-addr
177177 
  (match-lambda
178178 
    (($ <addr> family prefix flags scope link label addr brd cacheinfo)
179-
     (format #t "    ~a ~a"
180-
             (match family (AF_INET "inet") (AF_INET6 "inet6"))
181-
             addr)
179+
     (format #t "    ~a ~a/~a"
180+
             (cond
181+
               ((= family AF_INET) "inet")
182+
               ((= family AF_INET6) "inet6")
183+
               (else "????"))
184+
             addr prefix)
182185 
     (when brd
183186 
       (format #t " brd ~a" brd))
184187 
     (when scope