`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

View File

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