Be more careful about opening SCSH and SRFI-14 in FTPD.
This commit is contained in:
parent
05f6e48d8a
commit
2c5791a133
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue