scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

bug removing (...parenthesised...)

This commit is contained in:
interp 2002-08-24 17:45:37 +00:00
parent 0119532744
commit 60df692033
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
scheme/httpd/core.scm
View File

@ -424,16 +424,17 @@ the requested method (~A).~%"
(let ((result
(if fqdn-cache
(or (and (equal? used-addr addr)
(equal? used-options options)
fqdn-cache)
(begin
(set! fqdn-cache (or (httpd-options-fqdn options)
(dns-lookup-ip (socket-address->string addr))
(host-info:name (host-info addr))))
(set! used-addr addr)
(set! used-options options)
fqdn-cache)))))
(equal? used-options options))
fqdn-cache)
(begin
(set! fqdn-cache (or (httpd-options-fqdn options)
(dns-lookup-ip (socket-address->string addr))
(host-info:name (host-info addr))))
(set! used-addr addr)
(set! used-options options)
fqdn-cache))))
(release-lock fqdn-lock)
result))))
(define (my-reported-port addr options)