From b5e07aef54ba7842ef3ecd50481153ceaa753d01 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Tue, 7 Jan 2003 12:18:27 +0000
Subject: [PATCH] Remove -OBSOLETE packages; we're incompatible with the old
 SUnet anyway, and there's little reason to keep compatibility packages for
 the rest.

---
 scheme/packages.scm | 83 ---------------------------------------------
 1 file changed, 83 deletions(-)

diff --git a/scheme/packages.scm b/scheme/packages.scm
index 9d5758d..d21f388 100644
--- a/scheme/packages.scm
+++ b/scheme/packages.scm
@@ -108,28 +108,6 @@
           ftp-quot
 	  ftp-error?))
 
-(define-interface ftp-obsolete-interface
-  (export ftp:connect
-          ftp:login
-          ftp:type
-          ftp:rename
-          ftp:delete
-          ftp:cd
-          ftp:cdup
-          ftp:pwd
-          ftp:rmdir
-          ftp:mkdir
-          ftp:modification-time
-          ftp:size
-          ftp:abort
-          ftp:quit
-          ftp:ls
-          ftp:dir          
-          ftp:get
-          ftp:put
-          ftp:append
-          ftp:quot))
-
 (define-interface netrc-interface 
   (export user-mail-address
           netrc-lookup
@@ -150,25 +128,10 @@
           pop3-reset
           pop3-quit))
 
-(define-interface pop3-obsolete-interface
-  (export pop3:connect
-          pop3:login
-          pop3:stat
-          pop3:get
-          pop3:headers
-          pop3:last
-          pop3:delete
-          pop3:reset
-          pop3:quit))
-
 (define-interface nettime-interface
   (export net-time
           net-daytime))
 
-(define-interface nettime-obsolete-interface
-  (export net:time
-	  net:daytime))
-
 (define-interface dns-interface
   (export dns-clear-cache		; clears the cache
 	  dns-lookup			; complex lookup function
@@ -477,31 +440,6 @@
 	crlf-io)
   (files (lib ftp)))
 
-(define-structure ftp-obsolete ftp-obsolete-interface
-  (open scheme
-	ftp)
-  (begin
-    (define ftp:connect ftp-connect)
-    (define ftp:login ftp-login)
-    (define ftp:type ftp-type)
-    (define ftp:rename ftp-rename)
-    (define ftp:delete ftp-delete)
-    (define ftp:cd ftp-cd)
-    (define ftp:cdup ftp-cdup)
-    (define ftp:pwd ftp-pwd)
-    (define ftp:rmdir ftp-rmdir)
-    (define ftp:mkdir ftp-mkdir)
-    (define ftp:modification-time ftp-modification-time)
-    (define ftp:size ftp-size)
-    (define ftp:abort ftp-abort)
-    (define ftp:quit ftp-quit)
-    (define ftp:ls ftp-ls)
-    (define ftp:dir ftp-dir)
-    (define ftp:get ftp-get)
-    (define ftp:put ftp-put)
-    (define ftp:append ftp-append)
-    (define ftp:quot ftp-quot)))
-
 (define-structure netrc netrc-interface
   (open scheme-with-scsh
 	define-record-types
@@ -525,31 +463,10 @@
 	crlf-io)
   (files (lib pop3)))
 
-(define-structure pop3-obsolete pop3-obsolete-interface
-  (open scheme
-	pop3)
-  (begin
-    (define pop3:connect pop3-connect)
-    (define pop3:login pop3-login)
-    (define pop3:stat pop3-stat)
-    (define pop3:get pop3-get)
-    (define pop3:headers pop3-headers)
-    (define pop3:last pop3-last)
-    (define pop3:delete pop3-delete)
-    (define pop3:reset pop3-reset)
-    (define pop3:quit pop3-quit)))
-
 (define-structure nettime nettime-interface
   (open scheme-with-scsh)
   (files (lib nettime)))
 
-(define-structure nettime-obsolete nettime-obsolete-interface
-  (open scheme
-	nettime)
-  (begin
-    (define net:time net-time)
-    (define net:daytime net-daytime)))
-
 (define-structure dns dns-interface
   (open scheme-with-scsh
 	(subset srfi-1 (filter reverse! delete lset-difference lset-union))