sunet/sunet-utilities.scm

7 lines
171 B
Scheme

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