7 lines
171 B
Scheme
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))))
|