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 (let ((result
(if fqdn-cache (if fqdn-cache
(or (and (equal? used-addr addr) (or (and (equal? used-addr addr)
(equal? used-options options) (equal? used-options options))
fqdn-cache) fqdn-cache)
(begin (begin
(set! fqdn-cache (or (httpd-options-fqdn options) (set! fqdn-cache (or (httpd-options-fqdn options)
(dns-lookup-ip (socket-address->string addr)) (dns-lookup-ip (socket-address->string addr))
(host-info:name (host-info addr)))) (host-info:name (host-info addr))))
(set! used-addr addr) (set! used-addr addr)
(set! used-options options) (set! used-options options)
fqdn-cache))))) fqdn-cache))))
(release-lock fqdn-lock) (release-lock fqdn-lock)
result)))) result))))
(define (my-reported-port addr options) (define (my-reported-port addr options)