Protect dns-lookup-ip with a fatal error handler.

This commit is contained in:
mainzelm 2002-12-19 14:30:39 +00:00
parent 5a20cc1e0a
commit 8b6d244f0e
1 changed files with 5 additions and 1 deletions

View File

@ -164,6 +164,10 @@
(define (maybe-dns-lookup remote-ip)
(if (logging-dns-lookup?)
(or (dns-lookup-ip remote-ip)
(or (with-fatal-error-handler*
(lambda (condition decline)
remote-ip)
(lambda ()
(dns-lookup-ip remote-ip)))
remote-ip)
remote-ip))