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

scheme/lib/sunet-utilities.scm

@@ -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.

scheme/packages.scm

@@ -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))