From 6a090fba6b69fbc3ff840bc009b8a97a179ebc4d Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Sat, 28 Sep 2002 12:37:42 +0000
Subject: [PATCH] change load order of scheme and scsh in ftpd to get access to
 scsh's open-output-file

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

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