Fill cache for my-fqdn.

2002-02-21 16:42:26 +00:00 · 2002-02-21 16:42:26 +00:00 · 666ac9897d
parent 001f9a511b
commit 666ac9897d
1 changed files with 3 additions and 1 deletions
--- a/httpd-core.scm
+++ b/httpd-core.scm
@ -500,7 +500,9 @@ the requested method (~A).~%"

 (define (my-fqdn addr)
  (or *my-fqdn*
-      (host-info:name (host-info addr))))
+      (begin 
+	(set-my-fqdn! (host-info:name (host-info addr)))
+	*my-fqdn*)))

 (define *my-fqdn* #f)
 (define (set-my-fqdn! fqdn)