p.s. shepherd 1.0.2
./modules/shepherd/comm.scm
(define (open-server-socket file-name)
"Open a socket at FILE-NAME, and listen for connections there."
(with-fluids ((%default-port-encoding "UTF-8"))
(let ((sock (socket PF_UNIX
(logior SOCK_STREAM SOCK_NONBLOCK
SOCK_CLOEXEC)
0))
(address (make-socket-address AF_UNIX file-name)))
(catch-system-error (delete-file file-name)) ; <----- Please
don't.
(bind sock address)
(listen sock 10)
sock)))
