From 2ff86dd73b38b0cb745c7794d0f986f1da4db643 Mon Sep 17 00:00:00 2001 From: mainzelm Date: Wed, 19 Feb 2003 17:40:48 +0000 Subject: [PATCH] Adaption to parameter change in socket-address->fqdn. --- scheme/httpd/core.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scheme/httpd/core.scm b/scheme/httpd/core.scm index b2d931d..1734658 100644 --- a/scheme/httpd/core.scm +++ b/scheme/httpd/core.scm @@ -275,7 +275,7 @@ (if (and (pair? path) (string=? (car path) "")) (let* ((addr (socket-local-address socket)) (local-name (or (httpd-options-fqdn options) - (socket-address->fqdn addr #t))) + (socket-address->fqdn addr))) (portnum (or (httpd-options-reported-port options) (my-reported-port addr)))) (make-http-url (make-server #f #f