diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-17 22:14:18 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-28 14:17:01 +0200 |
| commit | 1da5a277188a954d881316cb605962ee66053285 (patch) | |
| tree | 4f77be46498f321d08bfaa072636e4fd252b4f9d /module/calp/repl.scm | |
| parent | Unsmarted define-config% (diff) | |
| download | calp-1da5a277188a954d881316cb605962ee66053285.tar.gz calp-1da5a277188a954d881316cb605962ee66053285.tar.xz | |
Normalize errors.
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 e25c2649..47c35a40 100644 --- a/module/calp/repl.scm +++ b/module/calp/repl.scm @@ -21,8 +21,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 (format #f "Failed to unlink ~a: ~?" + address fmt args)) err)))) (make-unix-domain-server-socket path: address)] [(IPv4) (apply (case-lambda |