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

Use fork-thread to start new threads to inherit syslog resource.

This commit is contained in:
mainzelm 2002-12-19 16:33:13 +00:00
parent b5c286e935
commit 63ca4e7c09
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/ftpd/ftpd.scm
View File

@ -341,7 +341,7 @@
(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) (set-ftp-socket-options! socket)
(spawn (fork-thread
(lambda () (lambda ()
(handle-connection-encapsulated ftpd-options (handle-connection-encapsulated ftpd-options
socket socket

2
scheme/packages.scm
View File

@ -632,7 +632,7 @@
define-record-types define-record-types
handle-fatal-error handle-fatal-error
threads threads-internal ; last one to get CURRENT-THREAD threads threads-internal ; last one to get CURRENT-THREAD
fluids fluids thread-fluids
locks locks
(subset srfi-13 (string-map string-trim-both string-index)) (subset srfi-13 (string-map string-trim-both string-index))
(subset big-util (any? partition-list)) (subset big-util (any? partition-list))