`set-ftp-socket-options!' may fail; move it to a place where proper
error handling is in place.
This commit is contained in:
parent
1e320f445c
commit
5ba7f23259
|
@ -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 ()
|
||||
|
|
Loading…
Reference in New Issue