diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-04 22:34:52 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-04 22:34:52 +0200 |
| commit | 4355bb221c71ec0a6b4653c0b328b59fb95bc2da (patch) | |
| tree | 43323ce303d56a05c33bb06050779ffea94c0a2f | |
| parent | Tests pass again. (diff) | |
| download | calp-4355bb221c71ec0a6b4653c0b328b59fb95bc2da.tar.gz calp-4355bb221c71ec0a6b4653c0b328b59fb95bc2da.tar.xz | |
Catch address already in use for HTTP server.
| -rw-r--r-- | module/entry-points/server.scm | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index 919dc936..6ab9a2d1 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -222,9 +222,15 @@ addr port (getpid) (getcwd)) - (run-server (make-make-routes) - 'http - `(family: ,family - port: ,port - host: ,addr) - 0)) + (catch 'system-error + (lambda () + (run-server (make-make-routes) + 'http + `(family: ,family + port: ,port + host: ,addr) + 0)) + ;; probably address already in use + (lambda (err proc fmt args errno) + (format (current-error-port) "~a: ~?~%" + proc fmt args)))) |