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

This commit is contained in:
sperber 2002-08-26 14:13:23 +00:00
parent 05f6e48d8a
commit 2c5791a133
1 changed files with 3 additions and 2 deletions

View File

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