From de5c5dab30e83e404eefc9d0dcfcc46710e1a8c2 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Thu, 25 Apr 2002 09:54:07 +0000
Subject: [PATCH] * this is the source to the ftp-obsolete package   (note a
 map to ftp:error? is missing as it was not exported up to now)

---
 ftp-obsolete.scm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 ftp-obsolete.scm

diff --git a/ftp-obsolete.scm b/ftp-obsolete.scm
new file mode 100644
index 0000000..1ec728c
--- /dev/null
+++ b/ftp-obsolete.scm
@@ -0,0 +1,24 @@
+; maps obsolete ftp-procedure names to new ftp procedure names
+; by Andreas Bernauer (2002)
+
+(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)
+