; some useful utilities
(define (host-name-or-empty addr)
(with-fatal-error-handler
(lambda (condition more)
"")
(host-info:name (host-info addr))))