scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

`set-ftp-socket-options!' may fail; move it to a place where proper 

error handling is in place.
This commit is contained in:
sperber 2009-09-21 08:11:08 +00:00
parent 1e320f445c
commit 5ba7f23259
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/ftpd/ftpd.scm
View File

@ -346,7 +346,6 @@
protocol-family/internet protocol-family/internet
(lambda (socket address) (lambda (socket address)
(let ((remote-address (socket-address->string address))) (let ((remote-address (socket-address->string address)))
(set-ftp-socket-options! socket)
(fork-thread (fork-thread
(lambda () (lambda ()
(handle-connection-encapsulated ftpd-options (handle-connection-encapsulated ftpd-options
@ -375,6 +374,8 @@
(log (syslog-level debug) "socket: ~S" socket-string) (log (syslog-level debug) "socket: ~S" socket-string)
(set-ftp-socket-options! socket)
(dynamic-wind (dynamic-wind
(lambda () 'fick-dich-ins-knie) (lambda () 'fick-dich-ins-knie)
(lambda () (lambda ()