Be more careful about opening SCSH and SRFI-14 in FTPD.

2002-08-26 14:13:23 +00:00 · 2002-08-26 14:13:23 +00:00 · 2c5791a133
parent 05f6e48d8a
commit 2c5791a133
1 changed files with 3 additions and 2 deletions
--- a/scheme/packages.scm
+++ b/scheme/packages.scm
@ -648,21 +648,22 @@
 ;; FTP server

 (define-structure ftpd ftpd-interface 
-  (open scsh
+  (open scheme (modify scsh (hide char-set:whitespace))
 	conditions handle signals
 	structure-refs
 	handle-fatal-error
-	scheme
 	threads threads-internal    ; last one to get CURRENT-THREAD
 	locks
 	thread-fluids               ; fork-thread
 	fluids
+	srfi-14
 	srfi-13
 	big-util
 	defrec-package
 	crlf-io
 	ls
 	dns
+	sunet-utilities
 	let-opt
 	receiving                   ; RECEIVE
 	format-net)                 ; pretty print of internet-addresses