From db6b607d0f40dd3d43b46404dafcfb4d6a980e75 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Mon, 30 Sep 2002 10:42:34 +0000
Subject: [PATCH] in ftpd: use signature calculus to get access to scsh's
 OPEN-OUTPUT-FILE instead of relying on the import order

---
 scheme/packages.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/packages.scm b/scheme/packages.scm
index ce8cbf0..74571c3 100644
--- a/scheme/packages.scm
+++ b/scheme/packages.scm
@@ -651,8 +651,8 @@
 ;; FTP server
 
 (define-structure ftpd ftpd-interface 
-  (open (modify scsh (hide char-set:whitespace)) 
-	scheme
+  (open (modify scheme (hide open-output-file))
+	(modify scsh (hide char-set:whitespace))
 	conditions handle signals
 	structure-refs
 	handle-fatal-error