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

2002-12-19 16:33:13 +00:00
parent b5c286e935
commit 63ca4e7c09
2 changed files with 2 additions and 2 deletions
@@ -341,7 +341,7 @@
      (lambda (socket address)
 	(let ((remote-address (socket-address->string address)))
 	  (set-ftp-socket-options! socket)
-	  (spawn
+	  (fork-thread
 	   (lambda ()
 	     (handle-connection-encapsulated ftpd-options
 					     socket
@@ -632,7 +632,7 @@
 	define-record-types
 	handle-fatal-error
 	threads threads-internal    ; last one to get CURRENT-THREAD
-	fluids
+	fluids thread-fluids
 	locks
 	(subset srfi-13 (string-map string-trim-both string-index))
 	(subset big-util (any? partition-list))