diff options
Diffstat (limited to 'module/calp/repl.scm')
| -rw-r--r-- | module/calp/repl.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/module/calp/repl.scm b/module/calp/repl.scm index 9b2df13f..6f2c7c0a 100644 --- a/module/calp/repl.scm +++ b/module/calp/repl.scm @@ -22,8 +22,9 @@ [else 'UNIX]) [(UNIX) (add-hook! shutdown-hook (lambda () (catch 'system-error (lambda () (delete-file address)) - (lambda (err proc fmt . args) - (warning (_ "Failed to unlink ~a") address args) + (lambda (err proc fmt args data) + (warning (string-append (format #f (_ "Failed to unlink ~a") address) + (format #f ": ~?" fmt args))) err)))) (make-unix-domain-server-socket path: address)] [(IPv4) (apply (case-lambda |