[shepherd] 03/08: repl: Delete socket before starting.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository shepherd.

commit 25f2006b145faa74768357a93baba001b424b35f
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat Mar 25 18:37:31 2023 +0100

    repl: Delete socket before starting.
    
    * modules/shepherd/service/repl.scm (repl-service): In 'start' method,
    start by deleting SOCKET-FILE.
---
 modules/shepherd/service/repl.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/modules/shepherd/service/repl.scm 
b/modules/shepherd/service/repl.scm
index 460b227..8e0ae13 100644
--- a/modules/shepherd/service/repl.scm
+++ b/modules/shepherd/service/repl.scm
@@ -103,6 +103,7 @@ crashes, stop @var{service}."
     #:provides '(repl)
     #:requires '()
     #:start (lambda args
+              (catch-system-error (delete-file socket-file))
               (let ((socket (open-server-socket socket-file)))
                 (spawn-repl-service socket)
                 socket))