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)))

Reply via email to