400
401
402
403
404
405
406
407
408
409
410
411
412
413
|
(sort (get-all-ips) ip-pref-less?))
(define (get-all-ips)
(map address-info-host
(filter (lambda (x)
(equal? (address-info-type x) "tcp"))
(address-infos (get-host-name)))))
;; (map ip->string (vector->list
;; (hostinfo-addresses
;; (host-information (current-hostname))))))
|
<
<
<
<
<
|
400
401
402
403
404
405
406
407
408
|
(sort (get-all-ips) ip-pref-less?))
(define (get-all-ips)
(map address-info-host
(filter (lambda (x)
(equal? (address-info-type x) "tcp"))
(address-infos (get-host-name)))))
)
|