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

Adaption to parameter change in socket-address->fqdn.

This commit is contained in:
mainzelm 2003-02-19 17:40:48 +00:00
parent 8111eddf82
commit 2ff86dd73b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/httpd/core.scm
View File

@ -275,7 +275,7 @@
(if (and (pair? path) (string=? (car path) "")) (if (and (pair? path) (string=? (car path) ""))
(let* ((addr (socket-local-address socket)) (let* ((addr (socket-local-address socket))
(local-name (or (httpd-options-fqdn options) (local-name (or (httpd-options-fqdn options)
(socket-address->fqdn addr #t))) (socket-address->fqdn addr)))
(portnum (or (httpd-options-reported-port options) (portnum (or (httpd-options-reported-port options)
(my-reported-port addr)))) (my-reported-port addr))))
(make-http-url (make-server #f #f (make-http-url (make-server #f #f