diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-19 23:05:44 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-19 23:21:57 +0200 |
| commit | c2f8f5b4be91f959bf02abba27463936c9cfb1ae (patch) | |
| tree | 2a2933263f86f6242a8c32f2796c629ce4c8ab0e /module/repl.scm | |
| parent | Fix recurrence display for BYMONTHDAY in YEARLY. (diff) | |
| download | calp-c2f8f5b4be91f959bf02abba27463936c9cfb1ae.tar.gz calp-c2f8f5b4be91f959bf02abba27463936c9cfb1ae.tar.xz | |
Add warning with failed unlinking of unix socket.
Diffstat (limited to 'module/repl.scm')
| -rw-r--r-- | module/repl.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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 |