Removed system-fqdn from sunet-utilities and internet-address->fqdn from dns.

This commit is contained in:
mainzelm 2003-02-10 10:44:59 +00:00
parent 090a91be0e
commit 1503017988
2 changed files with 0 additions and 10 deletions

View File

@ -33,14 +33,6 @@
(format-internet-host-address host-address))))))
(define (system-fqdn)
(let ((host (host-info (system-name))))
(let loop ((addresses (host-info:addresses host)))
(if (null? addresses)
#f
(or (dns-lookup-ip (car addresses))
(loop (cdr addresses)))))))
;;; Assemble a filename from ROOT and the elts of PATH-LIST.
;;; If the assembled filename contains a .. subdirectory, return #f,
;;; otw return the filename.

View File

@ -156,7 +156,6 @@
dns-find-nameserver ; returns a nameserver
dns-find-nameserver-list ; returns a list of nameservers
socket-address->fqdn
internet-address->fqdn
host-fqdn
system-fqdn))
@ -191,7 +190,6 @@
on-interrupt
socket-address->string
dump
system-fqdn
copy-inport->outport
dotdot-check
with-lock))