From 1503017988c4881bed3260db7ef21671c7928789 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Mon, 10 Feb 2003 10:44:59 +0000
Subject: [PATCH] Removed system-fqdn from sunet-utilities and
 internet-address->fqdn from dns.

---
 scheme/lib/sunet-utilities.scm | 8 --------
 scheme/packages.scm            | 2 --
 2 files changed, 10 deletions(-)

diff --git a/scheme/lib/sunet-utilities.scm b/scheme/lib/sunet-utilities.scm
index ec617dd..7306d2c 100644
--- a/scheme/lib/sunet-utilities.scm
+++ b/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.
diff --git a/scheme/packages.scm b/scheme/packages.scm
index b87a6af..06d8358 100644
--- a/scheme/packages.scm
+++ b/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))