in ftpd: use signature calculus to get access to scsh's OPEN-OUTPUT-FILE instead of relying on the import order

2002-09-30 10:42:34 +00:00 · 2002-09-30 10:42:34 +00:00 · db6b607d0f
parent fc6f2c5a1a
commit db6b607d0f
1 changed files with 2 additions and 2 deletions
--- 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