From c2f8f5b4be91f959bf02abba27463936c9cfb1ae Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 19 May 2020 23:05:44 +0200
Subject: Add warning with failed unlinking of unix socket.

---
 module/repl.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'module/repl.scm')

diff --git a/module/repl.scm b/module/repl.scm
index ae559251..18e01d99 100644
--- a/module/repl.scm
+++ b/module/repl.scm
@@ -2,6 +2,7 @@
   :use-module (system repl server)
   :use-module (ice-9 regex)
   :use-module ((util hooks) :select (shutdown-hook))
+  :use-module (util exceptions)
   )
 
 (define-public (runtime-dir)
@@ -21,7 +22,7 @@
      [(UNIX)
       (add-hook! shutdown-hook (lambda () (catch 'system-error (lambda () (delete-file address))
                                        (lambda (err proc fmt . args)
-                                         ;; TODO warn here
+                                         (warning "Failed to unlink ~a" address args)
                                          err))))
       (make-unix-domain-server-socket path: address)]
      [(IPv4) (apply (case-lambda
-- 
cgit v1.2.3