From 6b21a056361c6e232059972e94c7fe18c9cf14a2 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Thu, 16 Jan 2003 13:33:39 +0000
Subject: [PATCH] Add COPY-PORT->PORT-BINARY, COPY-PORT->PORT-ASCII, and
 COPY-ASCII-PORT->PORT to FTP-INTERFACE.

---
 scheme/packages.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/scheme/packages.scm b/scheme/packages.scm
index 0266f78..81121a6 100644
--- a/scheme/packages.scm
+++ b/scheme/packages.scm
@@ -110,7 +110,11 @@
           ftp-put
           ftp-append
           ftp-quot
-	  ftp-error?))
+	  ftp-error?
+
+	  copy-port->port-binary
+	  copy-port->port-ascii
+	  copy-ascii-port->port))
 
 (define-interface netrc-interface 
   (export user-mail-address